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IDENTIFICATION 



PRODUCT CODE* MAINDEC-1 1 -DZPC A-E-D 

PRODUCT NAME { PC 11 READER AND PUNCH TESTS 

PROGRAM DATE! APRIL 1976 

MAINTAINER* DIAGNOSTIC GROUP 



THE INFORMATION IN THIS DOCUMENT IS SUBJECT TO CHANGE WITHOUT 
NOTICE AND SHOULD NOT BE CONSTRUED AS A COMMITMENT B¥ DIGITAL 
EQUIPMENT CORPORATION, DIGITAL EQUIPMENT CORPORATION ASSUMES 
NO RESPONSIBILITY FOR ANY ERRORS THAT MAy APPEAR IN THIS DOCUMENT 

THE SOFTWARE DESCRIBED IN THIS DOCUMENT IS FURNISHED UNDER A 
LICENSE AND MAY ONLY BE USED OR COpIED IN ACCORDANCE WITH THE 
TERMS OF SUCH LICENSE. 

DIGITAL EQUIPMENT CORPORATION ASSUMES NO RESPONSIBILITY FOR 
THE USE OR RELIABILITY Of ITS SOFTWARE ON EQUIPMENT THAT IS 
NOT SUPPLIED BY DIGITAL, 

COPYRIGHT (C) 1972, 1976 BY DIGITAL EQUIPMENT CORPORATION 
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45 
46 

47 1. ABSTRACT 

48 • — 

49 

50 THE PCli READER AND PUNCH TESTS CONSISTS OF A PACKAGE OF TEST 

51 PROGRAMS DESIGNED TO TEST THE READER LOGIC, READER, PUNCH LOGIC, 

52 PUNCH* AND THE READER AND PUNCH IN COMBINATION, ALL TESTS ARE 
51 INCLUDED IN ONE OBJECT TAPE, 

54 

55 THE AVAILABLE TESTS ARE LISTED HERE IN NUMERICAL ORDERS 
56 

57 PRG0-PEADER LOGIC TESTS 

58 PRG1-PEADER TEST 

59 PRG2-PUNCH LOGIC TESTS 

60 PRG3-PUNCH TEST 

61 PRG4-PUNCH VERIFY ROUTINE 

62 PRG5-C0MBINED READER-PUNCH TEST 

63 PRG6-PUNCH TAPE WITH 2 CHARACTERS SET IN SR ROUTINE, 

64 PRG7-READ AND CHECK TAPE PUNCHED WITH 2 CHARACTERS SET IN SR, 

65 PRG10-READ X CHARACTERS, THEN STALL Y MSECS, 

66 PPGll-SPECIAL BINARY COUNT PATTERN TAPE GENERATOR, 

67 PRG12-READER SPEED PRINT ROUTINE, 

68 PRG1 3-PUNCH SPEED PRINT ROUTINE, 
69 

70 PROGRAMS PRG0 THROUGH PRG5 ARE THE READER AND PUNCH TESTS, 

71 PROGRAMS PRG6 THROUGH PRG13 ARE UTILITY ROUTINES THAT 

72 PRODUCE TEST TAPES AND AID IN MAKING ADJUSTMENTS, 

73 

74 2, REQUIREMENTS 

7 5 ««•■* mm m 

76 

77 2,1 EQUIPMENT 

78 ••••■•»■• 
79 

80 A, PDP-11 SYSTEM, C8K MEMORY) 

81 B, CONSOLE TELETYPE 

82 C, PC 11 READER OR PC11 READER AND PUNCH, 
83 

84 THE PROCESSOR AND TELETYPE MUST BE IN OPERATING CONDITION, 
85 

86 THE TELETYPE, HIGH SPEED READER, AND HIGH SPEED PUNCH MUST 

87 HAVE STANDARD PERIPHERAL ADDRESSES, REFER TO SECTION 7,3 

88 IF YOUR SYSTEM DOES NOT HAVE STANDARD PERIPHERAL ADDRESSES, 

89 

90 2,2 STORAGE 

91 mmmmmmm 

92 

93 THIS PROGRAM RUNS IN 8K MEMORY, 
94 

95 2,3 LOADING PRODEDURE 

9 6 nwvoiwwwnweqtugtwtiain 

97 

98 THIS PROGRAM'S OBJECT TAPE IS PUNCHED IN ABSOLUTE FORMAT, 

99 THE ABS LOADER IS USED TO LOAD THE PROGRAM B 
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100 
101 
102 
103 
104 
105 



106 3, SOFTWARE SWITCH REGISTER MANIPULATION 

103 
109 

11® THIS PROGRAM DOES NOT MAKE USE OF THE HARDWARE SWITCH REGISTER 

HI (LOC 177570), IT INSTEAD USES A SOFTWARE SWITCH REGISTER (SWREG) 

U2 LOCATED AT MEMORY ADDRESS 176, UPON EXECUTION OF EACH 

113 SUB- PROGRAM WHICH ALLOWS SWREG SETTINGS , THE CONTENTS OS SWREG 

11* ARE DUMPED IN OCTAL ON THE CONSOLE TTY AND REQUESTS A NEW VALUE (IE) 

115 

116 SWRsXXXXXX NEW= 

117 

118 POSSIBLE RESPONSES ARE s 

119 

120 1, <CR> IF NO CHANGES ARE TO BE MApE 

121 

122 2. 6 DIGITS TO REPRESENT IN OCTAL THE NEW SWREG CONTENTS 

123 0-7 LAST DIGIT FOLLOWED BY <CR>. 
124 

125 3 t *U TO ALLOW REENTERING VALUE IF ERROR IS COMMITTED 

126 KEYING IN SWREG VALUE, 
127 

128 BUILT INTO THE PROGRAM IS THE ABILITY TO DYNAMICALLY CHANGE 

129 THE CONTENTS OF SWREG DURING PROGRAM EXECUTION, BY TYPING A 

130 m G (CNTL G) ON THE CONSOLE TTY THE OPERATOR SETS A REQUEST FLAG 

131 TO CHANGE THE CONTENTS OF SWREG, WHICH WILL BE PROCESSED IN KEY AREAS 

132 OF THE PROGRAM CODE, (IE) ERROR ROUTINES, AFTER COMMON HALTS 

133 AND END OF PASS, 
134 

135 THE OPERATOR ALSO HAS THE ABILITY TO TYPE *G OR *U WHEN 

136 INPUTTING DATA SUCH AS TEST NUMBER, ROUTINE NUMBER, AND ANY 

137 ASCII DATA, 
138 

139 A, *G WILL IMMEDIATELY EXECUTE THE ROUTINE TO CHANGE 

140 SWREG AND THEN RE-ASK QUESTION IN WHICH 

141 *G WAS ANSWERED, 
142 

1*3 B, *U WILL ALLOW OPERATOR TO REENTER DATA IF ERROR WAS COMMITTED, 

144 

145 
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146 

147 

148 4, USE PROCEDURE 

149 * • • • • • •» • • » • • • «» 

150 

^51 LOAD STARTING ADDRESS-PRESS START , THE PROGRAM IDENTIFIES ITSELF 

152 (1ST TIME THRU ONLY) AND REQUESTS THE PROGRAM NUMBER 

153 TO EXECUTE. 

154 THE FOLLOWING PAGES EXPLAIN IN DETAIL THE STEPS NECESSARY 

155 TO RUN EACH PROGRAM, 

156 

157 , 4,1 PRG0 USE PROCEDURE (DESCRIPTION IN SECTION 8,1 

158 mmm • mmmm 

159 

160 A, INSURE THAT TELETYPE IS ON-LINE 

161 B„ HAVE AVAILABLE A TAPE LOOp OF SPECIAL BINARY COUNT PATTERN f 

162 C, THE PROGRAM IDENTIFIES ITSELF AND TYPES OUT INSTRUCTIONS TO 

163 SELRCT ANY DESIRED SWREG OPTIONS 

164 

165 THIS PROGRAM'S SWREG OPTIONS ARE I (EXPLAINED IN SECTION 7,2) 

166 

167 BIT15=1 HALT ON ERROR, 

168 BIT14sl ENTER SCOPE MODE, 

169 BIT13sl INHIBIT ERROR PRINT, 

170 BIT11=1 INHIBIT ITERATION, 

171 BIT10=1 HALT AT END OF CURRENT TEST, 

172 BIT9=1 SELECT A SPECIFIC ROUTINE FOR EXECUTION § 

173 BIT8=1 BYPASS MANUAL INTERVENTION ROUTINES, 
174 

175 D, IF BIT9=1 THE PROGRAM REQUESTS THE SPECIFIC ROUTINE NUMBER, 

176 E 9 REFER TO SECTION 6,2 IF ANY ERROR PRINTOUTS OCCUR, 

177 F, THE PROGRAM RINGS THE BELL AT THE END OF EACH PASS, 
178 

179 EXECUTION TIME f 

180 

181 PRG0 IS USER DEPENDENT DUE TO THE USE OF MANUAL INTERVENTION 

182 ROUTINES, HOWEVER, WITH SWREG BIT8 SET TO BYPASS MANUAL ROUTINES, 

183 ONE ERROR-FREE PASS WILL TAKE APPROXIMATELY 3 MINUTES • 
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184 

185 4 8 2 PRG1 USE PROCEDURE (DESCRIPTION IN SECTION 8 9 2) 

187 

188 A 8 INSURE THAT TELETYPE IS ON-LINE 

189 B, LOAD READER WITH SPECIAL BINARY COUNT PATTERN TEST TAPE LOOP, 

190 A TEST LOOP MUST BE USED , AS A NORMAL LENGTH TEST TAPE IS 

191 NOT LONG ENOUGH TO CONDUCT THE TEST, IF A TAPE LOOP IS NOT USED, 

192 DATA MUST BE POSITIONED OVER THE READ CELLS, NOT THE BLANK LEADER, 
1^3 C, THE PROGRAM IDENTIFIES ITSELF AND TYpES INSTRUCTIONS TO 

194 SET ANY DESIRED SWREG OPTIONS. 

195 

156 THIS PROGRAM'S SWREG OPTIONS ARE | (EXPLAINED IN SECTION 7,2) 

197 

198 BIT15=1 HALT ON ERROR, 

199 BIT14=1 ENTER SCOPE MODE, 

200 BIT13=1 INHIBIT ERROR PRINT , 

201 BITllsl INHIBIT ITERATION, 

202 BIT10=1 HALT AT END OF CURRENT TEST, 

203 BIT9sl SELECT A SPECIFIC ROUTINE FOP EXECUTION s 
204 

205 d, IF BIT9«1 THE PROGRAM REQUESTS A SPECIFIC ROUTINE NUMBER 

206 E, REFER TO SECTION 6,2 IF ANY ERROR PRINTOUTS OCCUR, 

207 F, THE PROGRAM RINGS THE BELL AT THE END OF EACH pASS 8 
208 

209 EXECUTION TlMEf ONE ERROR FREE PASS ABOUT 7 MINUTES, 

210 

211 

212 4,3 PRG2 USE PROCEDURE (DESCRIPTION IN SECTION 8.3) 

213 

214 

215 A, INSURE THAT TELETYPE IS ON«LINE , 

216 B, INSURE THAT THE PUNCH HAS AN ADEQUATE SUPPLY OF TAPE, 

217 C, THE PROGRAM IDENTIFIES ITSELF AND TYpEs INSTRUCTIONS TO 

218 SET ANY DESIRED SWREG OPTIONS , 

219 

220 THIS PROGRAM'S SWREG OPTIONS ARE: (EXPLAINED IN SECTION 7,2) 

221 

222 BIT15»1 HALT ON ERROR, 

223 BIT14=1 ENTER SCOPE MODE, 

224 BIT13=1 INHIBIT ERROR PRINT, 

225 BIT11=1 INHIBIT ITERATION, 

226 BIT10sl HALT AT END OF CURRENT TEST, 

227 BIT9»1 SELECT A SPECIFIC ROUTINE FOR EXECUTION, 

228 BIT8sl BYPASS MANUAL INTERVENTION ROUTINES, 
229 

230 D, IF BIT9=1 THE PROGRAM REQUESTS A SPECIFIC ROUTINE NUMBER, 

231 E t THE PROGRAM RINGS THE BELL AT THE END OF EACH PASS S 

232 F, REFER TO SECTION 6, IF ANY ERRORS OCCUR. 

233 

234 EXECUTION TIME 
215 

236 PRG2 IS USER DEPENDENT DUE TO THE USE OF MANUAL INTERVENTION 

237 ROUTINES, WITH SWREG BITS SET TO BYPASS MANUAL ROUTINES* ONE 

238 ERROp-FREE PASS WILL TAKE APPROXIMATELY 1,5 MINUTES. 
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239 
240 

241 4 V 4 PRG3 USE PROCEDURE (DESCRIPTION IN SECTION 8,4) 

242 — W9 , m 

243 

244 A v INSURE THAT TELETYPE IS ON-LINE, 

245 B t INSURE THAT THE PUNCH HAS AN ADEQUATE SUPPLY OF TAPE, 

246 C. THE PROGRAM IDENTIFIES ITSELF AND TYPES INSTRUCTIONS TO 

247 SET ANY DESIRED SWREG OPTIONS, 
248 

249 THIS PROGRAM'S SWREG OPTIONS ARE ! (EXPLAINED IN SECTION 7,2) 

250 

251 BIT13=1 INHIBIT ERROR PRINT, 

252 BIT! 1=1 INHIBIT ITERATION, 

253 BIT10*! HALT AT END OF CURRENT TEST, 

254 BIT9*1 SELECT A SPECIFIC ROUTINE FOR EXECUTION, 
255 

256 D, IF BIT9=1 PROGRAM REQUESTS SPECIFIC ROUTINE NUMBER 

257 E, UPON COMPLETION OF A PROGRAM PASS THE PROGRAM WILL TYPE 

258 "P0003 END M AND HALT, TO REPEAT PRESS CONTINUE, 

259 

260 EXECUTION TIME : ONE PASS ABOUT 8 MINUTES. 
261 

262 

263 4,5 PPG4 USE PROCEDURE (DESCRIPTION IN SECTION 8,5) 

264 

265 

266 A, INSURE THAT TELETYPE IS ON-LINE, 

267 B, LOAD TAPE THAT WAS PUNCHED BY PRG3-PUNCH TEST IN READER, 

268 LOAD TAPE SO THAT THE FIRST RUBOUT (ALL 1'S) IS 3 INCHES RIGHT 

269 OF THE METAL PLATE OVER THE READ STATION, MAKE READER READY, 

270 C, THE PROGRAM IDENTIFIES ITSELF AND TYPES INSTRUCTIONS TO LOAD THE 

271 READER AND SELECT SWREG OPTIONS, 

272 D, THE PROGRAM WILL READ THE TAPE AND REpORT 

273 ANY ERRORS, DISREGARD ANY ERRORS THAT OCCUR WHEN 

274 THE READER REACHES THE END OF THE TApE, 

275 E, THE SWREG OPTIONS FOR THIS PROGRAM ARE* 
276 

277 BIT15B1 HALT ON ERROR, 

278 BIT13*1 INHIBIT ERROR PRINT, 
279 

280 F, REFER TO SECTION 6, IF ERRORS OCCUR, 
281 

282 PRG4 DOES NOT RESYNC THE READER AT ANY TIME, IT'S INTENT IS 

283 TO SHOW EACH AND EVERY ERROR CAUSED BY THE PUNCH, 
284 

285 EXECUTION TIME: DEPENDS ON LENGTH OF TAPE TO BE VERIFIED, 
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286 

287 

288 4,6 PRG5 USE PROCEDURE (DESCRIPTION IN SECTION 8,6) 

290 

291 A, INSURE THAT TELETYPE IS ON-LINE, 

292 B. INSURE THAT THE PUNCH HAS AN ADEQUATE SUPPLY OF TAPE, 

293 C. USING THE "PUNCH FEED" KEY, PUNCH 2 FEET BLANK LEADER, 

294 LOAD A 1" THICK STACK OF PREPUNCHED SPECIAL BINARY COUNT 

295 PATTERN TAPE IN PEADEP, AND MAKE READER READY, THE BLANK 

296 LEADER PORTION OF THE TAPE MUST BE At THE READ STATION, 

297 D. THE PROGRAM IDENTIFIES ITSELF AND TYpEs INSTRUCTIONS TO PUNCH 

298 LEADER AND LOAD READER, 

299 E, THE PROGRAM WILL PUNCH A NEW BINARY COUNT 

300 PATTERN WHILE READING THE PREPUNCHED TAPE IN THE READER, 

301 THE PROGRAM SHOULD RUN ERROR-FREE UNTIL THE READER TAPE IS 

302 EXHAUSTED, AT WHICH POINT A READER NOT READY MESSAGE WILL 

303 OCCUR, REPLACE THE READER TAPE WITH THE TAPE JUST PUNCHED 

304 AND RERUN THE TEST, RUN THE TEST 6 TIMES, 

305 F, THE SWREG OPTIONS AVAILABLE WITH THIS PROGRAM ARE § 
306 

307 BlT15=sl HALT ON ERROR , 

308 BIT13*1 INHIBIT ERROR PRINT, 

309 

310 I, REFER TO SECTION 6, IF ERRORS OCCUR, 
311 

312 EXECUTION TIME | PRG5 IS CONTINUOUS RUNNING, 
313 

314 4,7 PPG6 USE PROCEDURE (DESCRIPTION IN SECTION 8,7) 

316 

317 THIS PROGRAM CONTINUOUSLY PUNCHES TApE WITH 2 CHARACTERS SELECTED 

318 

319 A, INSURE THAT TELETYPE IS ON-LINE, 

320 B, INSURE TAHT THE PUNCH HAS AN ADEQUATE SUPPLY OF TAPE, 

321 C, THE PROGRAM IDENTIFIES ITSELF AND TYpEs INSTRUCTIONS TO 

322 ENTER THE DESIRED ASCII CODES FOR CHARACTERS TO PUNCH, 

323 D, PRESS CONTINUE, THE PROGRAM WILL PUNCH THE DESIRED 

324 CHARACTERS CONTINUOUSLY UNTIL STOPPED BY USER, 
325 

326 EXECUTION TIME: CONTINUOUS RUNNING PROGRAM, 
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327 
328 

329 4,8 PRG7 USE PROCEDURE (DESCRIPTION IN SECTION 8,8) 

330 ^mmm mmmmmmmmmmmmmm9mmmmmmwmmmmmmmmmmmmmmmmmmmmm 

331 

332 THIS PROGRAM READS AND CHECKS A TAPE PUNCHED WITH ANY 2 CHARACTERS 
333 

334 A, INSURE THAT TELETYPE IS ON-LINE, 

335 B, LOAD TAPE TO BE READ IN READER, DATA MUST BE UNDER READ STATION f 

336 C, FOLLOW PROGRAM INSTRUCTIONS, 

337 D , THE PROGRAM WILL READ THE TAPE AND REPORT ANY ERRORS, 

338 E, THE SWREG OPTIONS AVAILABLE WITH THIS PROGRAM AREfi 
339 

340 BIT1531 HALT ON ERROR, 

341 BIT13=1 INHIBIT ERROR PRINT , 

342 

343 F, REFER TO SECTION 6, IF ERRORS OCCUR, 
344 

345 EXECUTION TlMEj CONTINUOUS RUNNING PROGRAM. 
346 

347 4,9 PRG10 USE PROCEDURE 

348 

349 

350 THIS PROGRAM Is INTENDED AS AN AID IN SCOPING AND ADJUSTING 

351 THE READER AND READER LOGIC. TO RUN 3 
352 

353 A, INSURE THAT TELETYPE IS ON-LINE, 

354 B, LOAD ANY TAPE LOOP IN THE READER, ONE'S AND ZEROES LOOP Is 

355 A GOOD CHOICE, 

356 C, THE PROGRAM IDENTIFIES ITSELF AND TYpEs INSTRUCTIONS TO ENTER THE 

357 NUMBER OF CHARACTERS TO READ AND THE NUMBER OF MILLISECONDS 

358 TO STALL AFTER READING THE CHARACTERS, PLEASE NOTE j 
359 

360 1 , THE RANGE FOR CHARACTERS TO READ IS 1 THRU 377 (8) , 

361 

362 2, THE STALL VALUE MUST BE N ON -ZERO, BETWEEN 1 AND 377(8) . 

363 

364 D, PRESS CONTINUE, THE PROGRAM WILL CONTINUOUSLY READ AND STALL 

365 UNTIL STOPPED BY USER, 
366 

367 EXECUTION TIME j CONTINUOUS RUNNING PROGRAM, 
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363 
369 

370 4,10 PPGU USE PROCEDURE 

372 

373 THIS PROGRAM CONTINUOUSLY PUNCHES A TAPE WITH THE SPECIAL 

374 BINARY COUNT PATTERN, TO PUN| 

375 

376 A, INSURE THAT TELETYPE IS ON-LINE 

377 B, MAKE SURE THAT THE PUNCH HAS AN ADEQUATE SUPPLY OF TAPE, 

378 C s THE PROGRAM IDENTIFIES ITSELF, AND TYPES INSTRUCTION 

379 TO MAKE THE PUNCH READY. 

380 D, PRESS CONTINUE, THE SPECIAL BINARY COUNT PATTERN WILL 

381 BE PUNCHED UNTIL THE PROGRAM IS STOPPED BY USER, 
382 

383 4,11 PRG12 USE PROCEDURE 

384 mmmmmmmmmmmmmmmmmmm 

385 

386 THIS PROGRAM IS INTENDED AS AN AID IN DETERMINING THE SPEED 

387 OF THE READER, IT IS NOT INTENDED TO REPLACE REGULAR SLOPING 

388 PROCEDURES FOR SETTING THE READER TO ITS CORRECT SPEED 8 
389 

390 WITH THIS PROGRAM THE READER SPEED CAN BE MEASURED IN TWO WAYS! 
39 i 

392 1 , 30 SECOND MEASUREMENT PERIOD B PLUS OR MINUS 10 CHARACTER ACCURACY 

393 2, 300 SECOND (5 MINUTE) MEASUREMENT PERIOD, PLUS OR MINUS 1 CHARACTER ACCURACY 
394 

395 IN EITHER CASE MEASUREMENT ACCURACY DEpENDs ON THE USER*S ATTENTION 

396 TO STARTING AND ENDING TIMES OF MEASUREM£NT# AS THE TIME INTERVALS ARE 

397 DETERMINED BY THE USER USING A SWEEP SECOND HAND WATCH OR STOP WATCH a 
398 

399 THE SPECIFIED ACCURACY ASSUMES THAT THE USER WILL TERMINATE THE 

400 MEASURING INTERVAL WITHIN ONE SECOND OF THE MEASUREMENT PERIOD, 

401 TO RUN: 

402 

403 A, INSURE THAT TELETYPE IS ON-LINE 

404 B, MOUNT ANY TAPE LOOp IN READER, 

405 C, THE PROGRAM IDENTIFIES ITSELF AND TYpES INSTRUCTIONS TO LOAD READER 

406 AND MAKE READY, AND TO SELECT DESIRED MEASUREMENT PERIOD, 

407 D, PRESS CONTINUE WHEN READY TO START MEASUREMENT, THE READER 

408 * WILL START RUNNING. 

409 E, AT END OF TIME PERIOD , STRIKE ANY TTY KEY 

4 * THE PROGRAM WILL TYPE AOUT THE READER SPEED IN CHARACTERS 

411 PER SECOND AND HALT, 

412 F, TO REPEAT, PRESS CONTINUE WHEN READY 
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413 
414 

415 4 s 12 PRG13 USE PROCEDURE 

417 

418 THIS PROGRAM Is INTENDED AS AN AID IN DETERMINING THE PUNCH SPEED 9 

419 THE SPEED OF THE PUNCH CAN BE MEASURED WITHIN ONE CHARACTER ACCURACY 

420 PROVIDED THE USER PAYS CLOSE ATTENTION TO THE STARTING AND STOPPING 

421 TIME OF THE MEASUREMENT PERIOD, THE MEASUREMENT PERIOD IS CONTROLLED 

422 BY THE USER USING A SWEEP SECOND WATCH OR STOP WATCH 8 THE PERIOD 

423 USED IS 60 SECONDS. TO RUN : 
424 

425 A . INSURE THAT TELETYPE IS ON-LINE 

426 B. INSURE THAT PUNCH HAS AN ADEQUATE SUPPLY OF TApE, 

427 C. THE PROGRAM IDENTIFIES ITSELF AND TYpEs INSTRUCTIONS TO MAKE 

428 PUNCH READY. 

429 0, PRESS CONTINUE WHEN READY TO START MEASUREMENT, THE PUNCH WILL 

430 START RUNNING, 

431 E, AT END OF TIME PERIOD (60 SECONDS ), STRIKE ANY TTY KEY 

432 THE PROGRAM WILL TYPE OUT THE PUNCH SPEED IN CHARACTER PER 

433 SECOND AND HALT, 

434 F. TO REPEAT* PRESS CONTINUE 

435 CONTINUE WHEN READY, 
436 

437 

438 5. PROGRAM AND/OP OPERATOR ACTION 

440 
441 

442 5,1 NORMAL PRINTOUTS 

443 v««<i>«0ia*»i«««a«aai 

444 

445 NORMAL PRINTOUTS IN THIS PROGRAM SERVE TO IDENTIFY A STARTING 

446 PROGRAM, TO PROVIDE INSTRUCTIONS, TO INDICATE STATUS, OR TO SIGNAL 

447 AN OPERATOR ERROR, MOST PRINTOUTS ARE SELF. EXPLANATORY, THOSE 

448 PRINTOUTS REQUIRING ADDITIONAL EXPLANATION FOLLOW , 

449 

450 "INCORRECT PROGRAM SELECTED," 

451 

452 

453 THE USER HAS SELECTED FOR EXECUTION A NON-EXISTENT PROGRAM, 

454 PRESS CONTINUE TO RETRY, 

455 

456 "INCORRECT ROUTINE SELECTED , " 

457 

458 

459 THE USER HAS SELECTED FOR EXECUTION A NON-EXISTENT ROUTINE, 

460 PRESS CONTINUE TO RETRY. 

461 
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463 
464 
465 
466 
467 
468 
469 
470 
471 
472 
473 
474 
475 
476 
477 
478 
479 
480 
481 
482 
483 
484 
485 
486 
487 
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6. ERRORS 



ERRORS ARE REPORTED IN THIS PROGRAM BY ONE OF THE FOLLOWING METHODS { 
A f UNCONDITIONAL ERROR HALTS, OR 

B, ERROR PRINTOUT FOLLOWED BY AN OPTIONAL ERROR HALT. 



6,1 UNCONDITIONAL ERROR HALTS 



AN UNCONDITIONAL ERROR HALT WILL OCCUR AT THE ADDRESSES LISTED 
BELOW IF THROUGH HARDWARE OR SOFTWARE FAILURE, PROGRAM CONTROL 

15 TRANSFERRED TO AN UNEXPECTED AREA BETWEEN 000000 AND 000776, 

000002 - RESERVED AREA f 
000006 - ERROR TRAP 

000012 - RESERVED INSTRUCTION TRAP 

000016 - DEBUG TRAP 
000022 - IOT TRAP 
000026 - POWER FAIL TRAP 

000040 THROUGH 000176 - SYSTEM SOFTWARE AND INTERRUPT VECTOR AREA, 

EXCEPT FOR PCll AND TTY VECTORS, 
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488 

489 PAGE 14 
490 

491 b 9 2 ERROR PRINTOUTS 

492 * - — 

493 

494 ERROR PRINTOUTS IN THIS PROGRAM CAN BE ONE OF TWO TYPES! 

495 A v NORMAL ERROR PRINTOUTS 

496 B f EXTENDED ERROR PRINTOUTS 
497 

498 6 , 2 « 1 NORMAL ERROR PRINTOUTS 

499 «v«««aii««V0a«gi0«i«0*»v0 

500 

501 NORMAL ERROR PRINTOUTS ARE GENERATED BY THE "ERR" SUBROUTINE, 

502 THE ERR SUBROUTINE IS CALLED BY AN "ERROR" STATEMENT IN THE 

503 PROGRAM LISTING, THE NORMAL ERROR PRINTOUT TAKES THE FORM t 
504 

505 "ERROR P00XX T00YY PC 0ZZZZZ" 
506 

507 WHERE} 

508 P00XX IS THE NUMBER OF THE PROGRAM BEING RUN, 

509 T00YY IS THE NUMBER OF ROUTINE WHERE FAILURE OCCURRED. 
510 

5U PC 0ZZZZZ IS THE ADDRESS FROM WHICH THE ERROR CALLED WAS ISSUED , 

512 

513 

514 WHEN THIS TYPE OF ERROR PRINTOUT OCCURS t 

515 

516 A, IN THE PROGRAM LISTING, LOOK UP THE ADDRESS REFERENCED BY PC0ZZZZZ, 

517 B t OPPOSITE THE PC VALUE AN ERROR STATEMENT WILL BE FOUND, AND 

518 IN THE COMMENTS SECTION A DESCRIPTION OF THE FAILURE WILL BE 

519 FOUND. 

520 C, AT THE BEGINNING OF THE TEST ROUTINE A DESCRIPTION OF THE TEST 

521 WILL BE FOUND, AND ALSO IN THE "PROGRAM DESCRIPTION" SECTION 

522 OF THIS DOCUMENT. 

523 

524 6,2,2 EXTENDED ERROR PRINTOUTS 

525 mmmmmmmmmmmmmmmmmmmmmmmm 

526 

527 IN ADDITION TO THE INFORMATION TYPED BY THE NORMAL ERROR PRINTOUTS, 

528 THE EXTENDED ERROR PRINTOUTS TYPE INFORMATION THAT DESCRIBES THE TYPE 

529 OF FAILURE, MOST EXTENDED PRINTOUTS CONCERN THEMSELVES WITH 

530 DATA PROBLEMS, THE PRINTOUTS ARE GENERATED BY THE "ERRl" SUBROUTINE 

531 WHICH IS CALLED BY AN " ERROR 1" STATEMENT IN THE PROGRAM LISTING, 

532 A TYPICAL PRINTOUT WOULD LOOK AS FOLLOWS : 
533 

534 "ERROR P0005 T0000 PC 011350 DATA ERROR S/BI0371 WASI0071" 
535 

536 THE PROGRAM, TEST AND PC INFORMATION ARE THE SAME AS FOR NORMAL 

537 ERROR PRINTOUTS. THE PC VALUE ALTHOUGH HAVING THE SAME MEANING, 

538 IS NOT AS MEANINGFUL, SINCE THE ERRl SUBROUTINE MAY BE BEING 

539 CALLED BY A COMMON DATA ERROR SUBROUTINE WHICH IS USED BY MORE 

540 THAN ONE PROGRAM, 
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541 
§42 

§43 (6,2 S 2 CONT'D) 

544 

545 THE IMPORTANT INFORMATION IN AN EXTENDED ERROR PRINTOUT IS THE 

546 "EXTENDED" INFORMATION TYPED f SOME OF THE EXTENDED PRINTOUTS 

547 ARE DESCRIBED BELOW I 
548 

549 "DATA ERROR S/B XXXX WASl YYYY" 
550 

551 DATA READ WITH READER DOES NOT AGREE WITH EXPECTED DATA 9 

552 S/B XXXX (SHOULD BE) IS THE EXPECTED DATA t WAS YYYY IS THE 

553 RECEIVED DATA 8 DEPENDING ON THE PROGRAM, THE FAILURE COULD 
§54 BE CAUSED BY THE READER OR THE PUNCH 8 EXAMINING THE TAPE 
§55 WILL SHOW IF THE TAPE IS PUNCHED CORRECTLY, 

556 

557 H REREAD ERROR , 1ST READ s XXXX WAS I YYYY" 
558 

§§$ THIS ERROR PRINTOUT IS GENERATED BY PRG0 TESTl 7 f IT INDICATES 

§6® THAT A REREAD OF THE READER BUFFER DID NOT AGREE WITH THE 

561 ORIGINAL DATA READ FROM THE BUFFER. 
562 

563 "SYNC ERROR" 

564 

§65 THIS PRINTOUT INDICATES THAT A PROGRAM WAS UNSUCCESSFUL IN 

566 SYNCING UP WITH THE SPECIAL BINARY COUNT PATTERN TAPE IN 

§67 THE READER, OR IN THE CASE OF PRG4, THAT THE PROGRAM HAS NOT 

568 READ A SUFFICIENT NUMBER OF EEROES BEFORE SYNCING UP WITH 

§^9 THE LEADER CHARACTER (377) , IF HALTED, PRESS CONTINUE 

570 TO TRY AGAIN, 
§71 

572 "LEADER ERROR S/Bf 377 WAS I XXXX" OR 

573 "LEADER ERROR S/B BETWEEN AND 3 t WASi XXXX 
574 

§75 ONE OR BOTH OF THESE PRINTOUTS IS GENERATED BY PRG4 WHEN IN 

§^6 READING THE LEADER THAT PRECEDES THE SPECIAL BINARY COUNT PUNCHED 

§7^ BY PRG3 THE DATA DOES NOT AGREE WITH THE EXPECTED DATA, CHECK 

§78 THAT THE TAPE IS PUNCHED CORRECTLY. REFER TO PRG3 AND PRG4 

§79 DESCRIPTION, 

§80 

§81 "MATCH ERROR" 

§32 

§83 THIS PRINTOUT IS GENERATED BY PRG7 WHEN UNSUCCESSFUL IN MATCHING 

§84 UP THE DATA READ FROM THE READER WITH THE EXPECTED DATA AS 

§8§ SPECIFIED, CHECK THAT THE TAPE IS THE ONE TO BE READ AND 

586 RESTART THE PROGRAM, 

§87 

§88 "FALSE READER INTERRUPT" OR, 

§B9 "FALSE PUNCH INTERRUPT" 

§90 

§91 THE PROGRAM DID NOT FIND THE ERROR Or THE DONE BIT SET FOLLOWING 

§$£ . AN INTERRUPT, POSSIBLY NOISE COULD BE CAUSING THE PROBLEM t 
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7, MISCELLANEOUS 
7,1 TEST TAPES 



THE FOLLOWING TEST TAPES ARE RELEASED WITH THIS PROGRAM | 

A t MAINDEO00~D2G4-PT SPECIAL BINARY COUNT PATTERN TEST TAPE, 
B, MAINDEC-00-D2G2-PT ONES AND ZEROES TEST TAPE® 

THE SPECIAL BINARY COUNT PATTERN TAPE IS PUNCHED WITH A PAT- 
TERN CONSISTING OF THE NUMBERS 000 THROUGH 377, EACH NUMBER 
IS IMMEDIATELY FOLLOWED BY ITS ONES COMPLEMENT NUMBER 9 
FOR EXAMPLE: 

001, 376 f 002, 375, 003, 374 # 004, 373, ETC* 

THE EASIEST WAY TO MAKE A SPECIAL BINARY COUNT PATTERN TEST 
LOOP IS TO OVERLAP THE TAPE AT THE POINT WHERE THE CHARACTERS 
377,000,000? 377, APPEAR, THAT SEQUENCE OF CHARACTERS 
APPEARS EVERY 512 CHARACTERS, THEREFORE A MINIMUM SIZE 
TEST LOOP WOULD CONSIST OF 512 CHARACTERS, 



7,2 SWREG OPTIONS 



THE STANDARD SWREG OPTIONS ARE DESCRIBED HERE, 
BIT15 - HALT ON ERROR, 

BIT14 - SCOPE, THIS OPTION CAUSES THE PROGRAM TO REMAIN IN THE 
CURRENT TEST ROUTINE, WHEN THE OpTION IS REMOVED THE 
PROGRAM PERFORMS THE TEST THE NUMBER OF TIMES SPECIFIED 
BY ITS ITERATION COUNT, BEFORE GOING ON TO THE NEXT ROUTINE, 

BIT13 - INHIBIT ERROR PRINT, THIS OPTION IF SET WILL REMOVE ALL 
ERROR PRINTOUTS, 
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634 

635 (7,2 CONT'D) 

636 
637 

638 BITU - INHIBIT ITERATION, SOME PROGRAMS CONSIST OF INDIVIDUAL 

639 TEST ROUTINES, FOR EACH ROUTINE THE FUNCTION BEING 

640 TESTED CAN BE TESTED A VARIABLE NfjMBER OF TIMES BEFORE 

641 THE ROUTINE IS COMPLETED , THE NUMBER OF TIMES THE TEST IS TO 

642 BE PERFORMED IS CALLED THE ITERATION COUNT AND IT MAY DIFFER 

643 FROM ROUTINE TO ROUTINE, SETTING SWpEG BIT11 WILL CAUSE THE 

644 PROGRAM TO PERFORM ONLY ONE ITERATION FOR EACH ROUTINE DURING 

645 WHICH THE SWITCH IS SET, TWO POSSIBLE USES OF THIS 

646 OPTION ARE: 
647 

648 A, QUICK PASS, WHEN A PROGRAM RUNS FOR SEVERAL MINUTES 

649 FOR ONE PROGRAM PASS, THE USER MAY ELECT TO RUN 

650 THROUGH THE PROGRAM QUICKLY TO FIND OUT IF ANY FAILURES 

651 SHOW UP IMMEDIATELY, A SUCCESSFUL QUICK pASS HOWEVER, 

652 DOES NOT GUARANTEE THAT THE SAME PROGRAM WILL RUN ERROR- 

653 FREE WHEN PERFORMING A NORMAL ITERATION PASS, 
654 

655 B, SKIP OVER FAILING ROUTINE, WHEN A ROUTINE WITH A MULTIPLE 

656 ITERATION COUNT HAS DETECTED k SOLID FAILURE* THE ERROR 

657 WILL BE REPORTED MANY TIMES, TO GO ON TO THE NEXT 

658 ROUTINE IF DESIRED , THE USER CAN INHIBIT ITERATION, It 

659 WILL BE NECESSARY TO SET SRH ROUTINE AND HALT, TO 

660 CAUSE THE PROGRAM TO STOP AT END OF FAILING ROUTINE, 

661 OTHERWISE THE PROGRAM WILL QUICKLY RUN THROUGH THE 

662 NEXT ROUTINE ALSO, 
663 

664 BIT10 - HALT AT END OF CURRENT ROUTINE, fOR THOSE PROGRAMS CONSISTING 

665 OF A SET OF SEPARATE TEST ROUTINES* SWREG BIT10 SET TO A 1 

666 CAUSES THE PROGRAM TO HALT AT THE COMPLETION OF THE 

667 ROUTINE CURRENTLY BEING EXECUTED, THREE POSSIBLE USES OF 

668 THIS OPTION ARE S 
669 

670 A, TO STEP THROUGH A PROGRAM ONE ROUTINE AT A TIME, 

671 B. WHEN AN UNPREDICTED FAILURE HAS OCCURRED (BLOW UP, 

672 HANG UP) TO ADVANCE THROUGH THE PROGRAM ONE ROUTINE 

673 AT A TIME UNTIL THE BLOW UP OCCURS, THE ROUTINE 

674 FOLLOWING THE LAST IDENTIFIED ROUTINE WOULD BE THE 

675 FAILING ROUTINE, 

676 C, WHEN A PROGRAM Is IN EXECUTION, TO DETERMINE HOW FAR 

677 THE PROGRAM HAS PROGRESSED, 

678 
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679 
630 
681 
682 

683 (7,2 CONT'D) 

684 

685 # BIT9 - SELECT ROUTINE , THE PROGRAMS THAT CONSIST OF INDIVIDUAL TEST 

686 ROUTINES? THE USER MAY ELECT TO RUN ONLY A SPECIFIED 

687 R0UTINE 9 TO SELECT A ROUTINE BIT 9 (SWREG) MUST BE SET 

688 THE PROGRAM THEN REQUESTS THE ROUTINE NUMBER TO BE RUN 

689 THE SELECTED NUMBER MUST BE A VALID ROUTINE NUMBER 

690 FOR THE PROGRAM BEING RUN, OR A USER ERROR PRINTOUT WILL 

691 OCCUR, THE PROGRAM WILL RUN THE SELECTED ROUTINE UNTIL THE 

692 SELECT ROUTINE OPTION IS CLEARED, OR UNTIL THE SELECTED 

693 ROUTINE NUMBER IS CHANGED , IF THE OPTION IS CLEARED, THE 

694 PROGRAM WILL PROCEED TO EXECUTE THE REMAINING ROUTINES IN THE 

695 PROGRAM, IF THE ROUTINE NUMBER IS CHANGED, THE PROGRAM 

696 WILL EXECUTE THE NEWLY SELECTED ROUTINE, 
697 

698 BIT8 - BYPASS MANUAL INTERVENTION ROUTINE, SOME PROGRAMS TEST 

699 ROUTINES REQUIRE THAT THE USER PERFORM SOME MANUAL 

700 OPERATION FOR WHICH THE PROGRAM HAS TO WAIT, THE USER MAY 

701 ELECT TO BYPASS THESE ROUTINES BY SETTING BIT8 OF SWREG, A GOOD 

702 POINT AT WHICH TO USE THIS OPTION WOULD BE AFTER A COMPLETE 

703 PASS HAS BEEN COMPLETED, AND THE USER WISHES TO LOOP THE 

704 PROGRAM WITHOUT HAVING TO INTERVENE, SELECTING A MANUAL ROUTINE 

705 WITH BIT9 OPTION AND BITS SET WILL CAUSE THE FOLLOWING PRINTOUT! 
706 

707 »?MANUAL ROUTINE, BITS IS SET" 
708 

709 EITHER TURN OFF BIT8, OR SELECT ANOTHER ROUTINE, PRESS 

710 CONTINUE, 
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71 i 
712 

713 7,3 TESTING pCli AT NON-STANDARD ADDRESSES AND/OR VECTORS 

714 mmmmmmmmmmmmmmmmmmmmmmmmwmmmmmmmmmmmmmmm^mmmmmmmmmmm 

715 

716 THIS PROGRAM CAN TEST PCll'S ASSIGNED TO NON-STANDARD ADDRESSES 

717 AND VECTORS PROVIDED THOSE ADDRESSES AND VECTORS ARE PROVIDED 
711 TO THE PROGRAM AS FOLLOWS S 

719 

720 A, IMMEDIATELY AFTER LOADING THE PROGRAM CHANGE THE FOLLOWING 

721 LOCATIONS, REFER TO PROGRAM LISTING, 
722 

723 LOCATION FROM STANDARD TO NON-STANDARD 

724 001210 177550 READER CSR ADDRESS 

725 001212 177552 READER BUFFER ADDRESS 

726 001214 177554 PUNCH CSR ADDRESS 

727 001216 177556 PUNCH BUFFER ADDRESS 

728 001220 000070 READER INTERRUPT VECTOR ADDRESS 

729 001222 000200 READER PRIORITY LEVEL 

730 001224 000074 PUNCH INTERRUPT VECTOR ADDRESS 

731 001226 000200 PUNCH PRIORITY LEVEL* 
732 

733 B, IF THE TELETYPE IS ALSO AT NON STANDARD ADDRESSES, PERFORM 

734 THE FOLLOWING CHANGES! 

735 

736 LOCATION FROM STANDARD TO NON-STANDARD 

737 001230 177560 TTY KEYBOARB CSR 

738 001232 177562 TTY KEYBOARD BUFFER 

739 001234 177564 TTY PRINTER CSR ADDRESS 

740 001236 177566 TTY PRINTER BUFFER ADDRESS 
741 
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8, DESCRIPTION 

8,1 PRG0 PROGRAM DESCRIPTION 

PRG0 TESTS THE PC 11 INPUT LOGIC. THE PROGRAM CONSISTS OF 26 
TEST ROUTINES NUMBERED FROM 00 TO 30(8) v 

RTN0 - TESTS THAT THE READER STATUS WORD (PRS) CAN BE 
REFERENCED WITHOUT TRAPPING, 

RTN1 - TESTS THAT THE READER BUFFER (PRB) CAN BE REFERENCED 
WITHOUT TRAPPING, 

RTN2 - MANUAL INTERVENTION ROUTINE, CHECKS THAT WITH PCll POWER 
OFF AND AFTER ISSUING A RESET THE ERROR BIT IS THE ONLY 
BIT SET IN THE READER STATUS WORD (PRS) 8 

RTN3 - MANUAL INTERVENTION ROUTINE f CHECKS THAT THE ERROR BIT 
(BIT 15) BECOMES SET IN PRS WITH READER OFF-LINE® 

RTN4 - MANUAL INTERVENTION ROUTINE, CHECKS THAT THE ERROR BIT 
(BIT 15) BECOMES SET IN PRS WITH READER OUT-OF»TAPE f 

RTN5 - MANUAL INTERVENTION ROUTINE, CHECKS THAT THE ERROR BIT 

(BIT 15) IS NOT SET (CLEARED) IN pRS WITH PC 11 POWER ON, 
READER ON-LINE, AND TAPE LOADED IN READER, 

RTN6 - TESTS ABILITY TO SET AND CLEAR THE INTERRUPT ENABLE 
BIT IN PRS (BIT 6) , 

RTN7 - TESTS ABILITY TO CLEAR THE INTERRRUpT ENABLE BIT IN 
PRS (BIT 6) WITH A RESET INSTRUCTION, 

RTN10 - ENABLES READER, AND AFTER APPROXIMATELY 100 MILLISECONDS 
CHECKS THAT THE DONE BIT HAS BECOME SET IN PRS (BIT 7) , 

re j 

'82 RTNil - TESTS ABILITY TO READ THE DONE BIT RELIABLY (BIT 7 OF PRS) 9 

'81 

'84 RTN12 - TESTS THAT RESET COMMAND CLEARS DONE BIT (BIT 7 OF PRS) s 

'8f 

'86 RTN13 - TESTS THAT DONE BIT (BIT 7 OF PRS) IS CLEARED BY READER ENABLE® 

'81 

'88 RTN14 - TESTS THAT DONE BIT (BIT 7 OF PRS) IS CLEARED BY REFERENCING 

'89 THE READER BUFFER (PRB) , 

P90 

?9 1 RTN15 - TEST THAT ENABLING READER (BIT OF PRS) SETS THE BUSY 

BIT (BIT 11 OF PRS) , 

191 
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(8,1 CONT'D) 

RTN16 - TESTS ABILITY TO READ THE BUSY BIT RELIABLY (BIT 11 OF PRS) 9 

RTN17 • TESTS ABILITY TO READ THE READER BUFFER (PRB) RELIABLY* 

RTN20 - TESTS THAT THE READER BUFFER (PRB) IS CLEARED BY 
READER ENABLE, 

RTN21 - TESTS THAT READER INTERRUPTS ON DONE, IF THE INTERRUPT 

IS SERVICED, IT INDICATES THAT THE READER Is INTERRUPTING 
AT THE CORRECT VECTOR ADDRESS , 

RTN22 - TESTS THAT THE READER DOES NOT INTERRUPT WITH PROCESSOR 
SET TO THE SAME PRIORITY AS THE READER, 

RTN23 - TESTS THAT THE READER INTERRUPTS WITH PROCESSOR SET 
TO A PRIORITY ONE LEVEL LOWER THAN THE READER'S, 

RTN24 - CHECKS THAT THE READER DOES NOT RElNTERRUPT AFTER 
AN RTI COMMAND WHEN THE DONE BIT IS LEFT SET, 

RTN25 - CHECKS THAT THE READER INTERRUPTS IMMEDIATELY UPON LOWERING 
CP PRIORITY TO 0, 

RTN26 - MANUAL INTERVENTION ROUTINE, CHECKS THAT ERROR BIT SET 
(BIT 15 OF PRS) CRIPPLES READER ENABLE, 

RTM27 • MANUAL INTERVENTION ROUTINE, CHECKS THAT THE ERROR BIT 

IS ABLE TO INTERRUPT* AND DOES NOT RElNTERRUPT AFTER SERVICE, 

RTN30 - MANUAL INTERVENTION ROUTINE, CHECKS THAT AFTER AN ERROR 
INTERRUPT HAS BEEN SERVICED ISSUING A READER ENABLE 
CAUSES AN IMMEDIATE INTERRUPT, 
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330 
831 

832 8,2 PRG1 PROGRAM DESCRIPTION 

833 — 

834 

835 PRGl IS THE PCli READER DATA TEST, IT CONSISTS OF 3 ROUTINES 

836 NUMBERED FROM 00 TO 02, THE PROGRAM USES A SPECIAL BINARY COUNT 

837 PATTERN TEST TAPE LOOP IN ALL ROUTINES, 
838 

839 RTN0 - READS AND CHECKS 10000 CHARACTERS AT FULL SPEED * 
840 

841 RTN1 - READS AND CHECKS 500 CHARACTERS « A STALL OF BETWEEN 

842 AND 7 MILLISECONDS OCCURS BETWEEN EACH CHARACTER, 
843 

844 RTN2 - READS AND CHECKS 1000 GROUPS OF 3 CHARACTERS EACH, 

845 A STALL OF BETWEEN TO 31 MSECS OCCURS BETWEEN 

846 EACH CHARACTER GROUP, 
847 

848 RTN3 - READS AND CHECKS 1000 GROUPS OF CHARACTERS, CHARACTER 

849 LENGTH VARIES RANDOMLY BETWEEN 1 AND 15, A STALL OF 

850 BETWEEN TO 31 MSECS OCCURS BETWEEN EACH CHARACTER GROUP. 
851 

852 RTN4 - READS AND CHECKS 1000 GROUPS OF CHARACTERS, THE NUMBER 

853 OF CHARACTERS IN A GROUP VARIES RANDOMLY BETWEEN 1 AND 77, 

854 A STALL OF BETWEEN TO 31 MSECS OCCURS BETWEEN EACH 

855 GROUP OF CHARACTERS, 
856 

857 IN ALL ROUTINES, THE PROGRAM WILL AUTOMATICALLY RESYNC ITSELF 

858 TO THE TEST TAPE AFTER THREE ERRORS HAVE OCCURRED, 
859 

860 8,3 PRG2 PROGRAM DESCRIPTION 

862 

863 PRG2 TESTS THE PC 11 OUTPUT LOGIC, THE PROGRAM CONSISTS OF 17 

864 TEST ROUTINES NUMBERED FROM 00 TO 20 (8) , 
865 

866 RTN0 - TESTS THAT THE PUNCH STATUS WORD (PPS) CAN BE REFERENCED 

867 WITHOUT TRAPPING, 
868 

869 RTN1 - TESTS THAT THE PUNCH BUFFER (PPB) CAN BE REFERENCED WITHOUT 

870 TRAPPING, 

871 

872 PTN2 - MANUAL INTERVENTION ROUTINE, CHECKS THAT WITH PC 11 POWER 

873 OFF AND AFTER ISSUING A RESET, THE ERROR AND READY BITS 

874 APE THE ONLY BITS SET IN THE PUNCH STATUS WORD (PPS) , 

875 

876 RTN3 - MANUAL INTERVENTION ROUTINE 8 CHECKS THAT THE ERROR BIT 

877 (BIT 15 OF PPS) BECOMES SET WHEN THE PUNCH IS OUT Of TAPE, 
878 
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MANUAL INTERVENTION ROUTINE, CHECKS THAT THE ERROR BIT 
DOES NOT SET WITH PC 11 POWER ON, AND TAPE IN PUNCH , 

TESTS ABILITY TO SET AND CLEAR THE INTERRUPT ENABLE BIT 
(BIT 6 IN PPS), 

TESTS ABILITY TO CLEAR THE INTERRUPT ENABLE BIT WITH 
RESET INSTRUCTION, 

TESTS THAT THE READY BIT (BIT 7 OF PPS) IS SET 
BY A RESET INSTRUCTION, AND THAT THE BIT CAN BE 
READ RELIABLY, 

TESTS THAT THE READY BIT (BIT 7 OF PPS) IS CLEARED 
BY LOADING THE PUNCH BUFFER (PPB) , 

TESTS THAT THE READY BIT (BIT 7 OF PPS) IS NOT 
CLEARED BY BYTE LOADING PP8+1, 

TESTS THAT THE READY BIT (BIT 7 OF PPS) IS ABLE 
TO INTERRUPT, IF THAT INTERRUPT IS SERVICED, IT 
INDICATES THAT INTERRUPT IS OCCURRING AT THE CORRECT 
VECTOR ADDRESS, 

TESTS THAT THE READY BIT DOES NOT REINTERRUPT AFTER 
IT HAS BEEN SERVICED AND THE READY BIT LEFT ON, 

TESTS THAT THE PUNCH DOES NOT INTERRUPT WITH THE 
PROCESSOR AT SAME PRIORITY LEVEL AS THE PUNCH , 

TESTS THAT THE PUNCH INTERRUPTS WITH PROCESSOR SET 
TO A PRIORITY ONE LEVEL LOWER THAN THE PUNCH'S, 

TESTS THAT THE PUNCH INTERRUPTS IMMEDIATELY UPON 
LOWERING OF PROCESSOR PRIORITY TO LEVEL 0, 

TEST THAT THE PUNCH EppOp BIT (BIT 15 OF PPS) IS ABLE 
TO INTERRUPT, AND THAT IT DOES NOT REINTERRUPT AFTER 
BEING SERVICED, 

MANUAL INTERVENTION ROUTINE, CHECKS THAT AFTER AN 

ERROR INTERRUPT HAS BEEN SERVICED, LOADING THE PUNCH BUFFER 

CAUSES AN IMMEDIATE INTERRUPT, 
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927 






928 


8,4 PRG3 


PROGRAM DESCRIPTION 


929 
930 
931 


mmm m 


mmmmmmmmmmmmmmmmmvmm 


PRG3 


EXERCISES THE PUNCH, THE PROGRAM CONSISTS OF 4 ROUTINES 


932 


NUMBERED FROM 00 TO 03 v THE DATA USED FOP OUTPUT IS THE SPECIAL 


933 


BINARY COUNT PATTERN, ALL ROUTINES PUNCH DATA BLOCKS IN THE 


934 


FOLLOWING FORMAT : 


935 






936 


A* 


20 BLANK CHARACTERS 


937 




SYNC CHARACTER RUBOUT, 


938 


c, 


ROUTINE NUMBER (BETWEEN AND 3) 


939 




4 BLANK CHARACTERS 


940 


E 8 


512 CHARACTERS OF SPECIAL BINARY COUNT PATTERN 8 


941 






942 


RTN0 


- PUNCHES 5 DATA BLOCKS AT FULL SPEED t 


943 






944 


RTM1 


- PUNCHES 5 DATA BLOCKS, THE SPECIAL BINARY COUNT PATTERN 


945 




DATA IS PUNCHED WITH RANDOM STALLS OF UP TO 47 MILLISECOND, 


946 




AFTER EACH CHARACTER, 


947 






948 


RTN2 


• PUNCHES 5 DATA BLOCKS, THE SPECIAL BINARY COUNT PATTERN 


949 




DATA IS PUNCHED WITH RANDOM STALLS OF UP TO 47 MILLISECOND, 


950 




BETWEEN GROUPS OF CHARACTERS OF Up TO 15 CHARACTERS e 


951 






952 


RTN3 


- PUNCHES 1 DATA BLOCK, THE SPECIAL BINARY COUNT PATTERN 


953 




DATA IS PUNCHED WITH A 5 SECOND STALL PRECEDING EACH 


954 




32 CHARACTER GROUP PUNCHED, 


955 






956 


8,5 PRG4 


PROGRAM DESCRIPTION 


957 




m mm mm 9»t»<a^<aamw9ammmmmm<a> 


958 






959 


PRG4 


VERIFIES THE PApER TAPE PRODUCED BY PRG3, THE 


960 


PROGRAM CONSISTS OF A SINGLE ROUTINE THAT PERFORMS THE 


961 


FOLLOWING STEPS I 


962 






963 


A * 


LOOK FOR 10 CONSECUTIVE CHARACTERS 


964 




LOOK FOP SYNC CHARACTER (PUflOUT) 


965 


c t 


LOOK FOR ROUTINE #, BETWEEN AND 3, 


966 " 


« 


READ 4 BLANK CHARACTERS 


967 


E , 


READ 512 BINARY CHARACTERS, 


968 


F* 


GO TO STEP A, 


969 






970 


THE 


ROUTINE WILL REPORT EVERY ERROR, IT WILL NOT RESYNC 


971 


ON THE SPECIAL BINARY COUNT PATTERN # SINCE IT IS INTENDED 


972 


THAT 


EVERY ERROR CAUSED BY THE PUNCH BE REPORTED , 
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8.6 PRG5 COMBINED READER-PUNCH TEST 



THIS CONTINUOUS RUNNING PROGRAM EXERCISES THE PUNCH AND 
READER CONCURRENTLY, THE SPECIAL BINARY COUNT PATTERN IS USED 
IN THIS PROGRAM, 

A, THE PUNCH PUNCHES DATA AT FULL SPEED, WHEN THE CHARACTER COUNT 
PEACHES 20, THE PUNCH ROUTINE ENABLES THE READER, 

B, WHEN THE CHARACTER COUNT REACHES 40, THE PUNCH ROUTINE WILL 
STOp PUNCHING, PUNCHING WILL NOT RESUME UNTIL THE CHARACTER 
COUNT IS DECREMENTED TO 31 BY THE READ ROUTINE, 

C, IF THE CHARACTER COUNT IS OVER 31 , THE READER READS AT 
FULL SPEED, 

D, IF THE CHARACTER COUNT IS 31 Op LESS THE READER WILL READ 
WITH RANDOM STALLS BETWEEN CHARACTERS. 

E, IF THE CHARACTER COUNT BECOMES 0, THE READER STOPS READING 
UNTIL THE COUNT CLIMBS TO 20, 

F, THE READ ROUTINE WILL RESYNC AUTOMATICALLY AFTER 3 ERRORS, 

8,7 PRG6 PROGRAM DESCRIPTION 



PRG6 WILL PUNCH CONTINUOUSLY THE 2 CHARACTERS WHOSE ASCII CODES HAVE 
BEEN SELECTED, THE ROUTINE IS USED FOR GENERATING ALL 0'S TAPE, 
ALL 1'S TAPE, ONES AND ZEROES TAPE, ETC, 

8,8 PRG7 PROGRAM DESCRIPTION 



PRG7 READS AND CHECKS A TAPE PUNCHED WITH THE CHARACTERS WHOSE 
ASCII CODES HAVE BEEN SELECTED, THIS ROUTINE Is USEFUL IN SETTING UP 
THE READ PHOTOCELLS AND READ AMPLIFIER, 

8,9 PRG10 PROGRAM DESCRIPTION 



PRG10 WILL ENABLE THE READER FOR THE NUMBER OF 

CHARACTERS SPECIFIED, AND THEN IT WILL STALL 

FOR THE NUMBER OF MILLISECONDS SPECIFIED, 

THIS ROUTINE Is USEFUL IN SETTING UP THE READER CLOCK, 

ACCELERATOR, STROBE, AND FOR CHECKING THE STOp DELAY t 
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8,10 



8,11 



8,12 



PPG11 PROGRAM DESCRIPTION 



PRGH PUNCHES THE SPECIAL BINARY COUNT PATTERN CONTINUOUSLY, 
PRG12 PROGRAM DESCRIPTION 



PRG12 IS A ROUTINE USED TO CHECK THE SPEED OF THE READER, 
READER SPEED CAN BE MEASURED IN TWO WAYS* 

A, COARSE, 30 SECOND TIMING, PLUS OR MINUS 10 CHARACTER ACCURACY, 

B, FINE, 300 SECOND TIMING, PLUS OR MINUS 1 CHARACTER ACCURACY, 

THE USER CONTROLS THE DURATION OF THE TIMING PERIOD BY USING A 
SWEEP SECOND HAND WATCH OR STOP-WATCH, AT THE END OF THE 
TIMING PERIOD, STRIKE ANY TTY KEY TO OBTAIN A SPEED PRINTOUT, 

PRG13 PROGRAM DESCRIPTION 



PRG13 IS USED TO CHECK THE SPEED OF THE pUNCH, THE ROUTINE 
USES A 60 SECOND TIMING PERIOD THAT IS CONTROLLED BY THE USER f 
AT THE END OF THE TIMING PERIOD STRIKE AnY TTY KEY TO OBTAIN A 
SPEED PRINTOUT, 
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1045 
1046 
1047 
1048 
1049 
1050 
1051 
1052 
1053 
1054 
1055 
1056 
1057 
1058 
1059 
1060 
1061 
1062 
1063 
1064 
1065 
1066 
1067 
1068 
1069 
1070 
1071 
1072 
1073 
1074 
1075 
1076 
1077 
1078 
1079 
1080 
1081 
1082 
1083 
1084 
1085 
1086 
108 7 
1088 
1089 
1090 
1091 
1092 
1093 
1094 
1095 
1096 
1097 
1098 
1099 
1 100 



000010 
000012 
000014 
000016 
000020 
000022 
000024 
000026 
000030 
000032 
000034 
000036 



000012 
000000 
000016 
000000 
000022 
000000 
000026 



002442 
000340 
004310 
000340 

000000 

177776 
177776 
001200 
000240 
000000 
100000 



020000 
010000 
004000 
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, ABS 



.TITLE PCI I READER-PUNCH TESTS 

.NLIST MC,MD,TOC 

.LIST ME 
I PRG0 - READER LOGIC TESTS 
?PRG1 - READER TEST 
t PRG2 - PUNCH LOGIC TESTS 
?PRG3 - PUNCH TEST 
I PRG4 - PUNCH VERIFY ROUTINE 
I PRG5 - COMBINED READER-PUNCH TEST 
|PRG6 - PUNCH 2 CHARACTERS FROM SR. 
? PRG7 - READ 2 CHARACTERS AS PER SR. 
JPRG10 - READ X CHARS* STALL Y MSECS, 
IPRGU - PUNCH SPECIAL BINARY COUNT PATTERN TAPE, 
JPRG12 - READER SPEED PRINT ROUTINE, 
IPRG13 - PUNCH SPEED PRINT ROUTINE. 



. + 2 

HALT 
MACHERt ,+2 
HALT 
, + 2 
HALT 
. + 2 
HALT 
.♦2 
HALT 
.♦2 
HALT 
fcMTINT 
PRTY7 
DLYX 
PRTY7 

jLOCATIONS 40 THROUGH 776 ARE FILLED WITH ,4-2 AND HALT, 
EMTXS0 



; UNASSIGNED TRAP 
;SP OVERFLOW, BUS ERROR TRAP 
jPESEPVED INSTRUCTION TRAP 
; TRACE TRAP 
; TRAP TO CALL IOx 
IPOWER FAIL TRAP 
jEMT TRAP 



000400 
000200 



CC=177776 

PSW=177776 

SPBOT=1200 

NOP=240 

OPENs0 

MANUAL=BlTiS 
R0=%fc 
R6 = %6 
PCs%7 

BIT! 5=100000 

BIT14=40000 

BIT13=20000 

BIT12=10000 

BITli=4000 

BIT10s2000 

BIT9sl000 

BIT8s400 

BIT7s200 



;PS ADDRESS 

;SUBJECT TO PROGRAM MODIFICATION 



;B1T DEFINITIONS 



000020 
000010 
04 



005726 
000340 



000240 



000140 

000100 
000040 
000000 



000046 
002340 
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1101 

1102 

1103 

1104 

1105 

1 106 

1107 

1108 

1109 

1110 

1111 

1 112 

1113 

1114 

1115 

1116 

1U7 

1118 

1119 

1 120 

1121 

1122 

1123 

1124 

1125 

1126 

1127 

1128 

1129 

1130 

1131 

1132 

1133 

1 134 

1135 

1136 

1137 

1138 

1139 

1140 

1141 

1142 

1143 

1144 

1145 

1146 

1 147 

1148 

1149 

1150 

1151 

1152 

1153 

1154 

1155 

1156 



000174 
000176 



000200 

001204 
001206 
001210 
001212 
001214 
001216 
001220 
001222 
001224 
001226 
001230 
001232 
001234 
001236 
001240 
001242 
001244 
001246 
001250 



000200 
000167 
001204 
200176 
000174 
177550 
177552 
177554 
177556 
000070 
000200 
000074 



177560 
177562 
177564 
177566 
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BIT6=100 

BIT5=40 

BIT4=20 

BIT3=i0 

BIT2=4 

BIT1=2 

BIT0=0 

POPSP=5726 

POPSP2=022626 

PRTY7=340 

PRTY6s300 

PRTY5=240 

PRTY4=200 

PRTY3=140 

PRTY2=100 

PRTY I =40 

PPTY0=0 

DELAYX=TRAP*0 

BELLS007 



,'POP THE STACK, S AME AS TST (6)+ 

?POP STACK TwICE, SAME AS CMP (6)*»(6)+ 

; PRIORITY LEVEL DEFINITIONS 



, = 46 

LOGIC 



jNOTEj PROGRAM HAS BEEN MODIFIED TO RUN ON A PROCESSOR WITH OR WITHOUT 

|A HARDWARE SWITCH REGISTER-REFER TO DOCUMENT 
»* ***** *###»#############*## ##*#####»################## 

. = 174 

DISPREGJOPEN 
SWREGJ OPEN 



SWR! 
DISPLAY 
PPSl 
PRBI 
PPSl 
PPBI 
RDRVTPI 
RDRLVLl 
PCHVTRI 
PCHLVLI 
TKSI 
TKBl 
TPSI 
TPB! 
PRGNUMl 
BRCTRI 
DVDNDI 
DVOUOTI 
MSEC I 



. = 200 
JMP 

.=,♦1000 

SWRFG 
J DI5PREG 
177550 
177552 
177554 
177556 
70 

PRTY4 
74 

PRTY4 

177560 

177562 

177564 

177566 

OPEN 

OPEN 

OPEN 

OPEN 

OPEN 



I GO TO START OF PROGRAM, 



; READER CSR 

JREAD&R BUFFER 

JPUNCH CSR 

I PUNCH BUFFER 

| READER INTERRUPT VECTOR 

; READER PRIORITY LEVEL 

JPUNCH INTERRUPT VECTOR 

fPUNCH PRIORITY LEVEL 

jLSR CSR 

;LSR BUFFER 

;LSP CSR 

;LSP BUFFER 

J CONTAINS CURRENT PROGRAM* 
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1 157 


001 252 


000000 


KSTART | 


OPEN 


I CURRENT PROGRAM START ADDRESS, 


1158 


001254 


000000 


CURTST 1 


OPEN 


;C0NTAINS ADDR OF CURRENT TEST, 




00 |256 


v <£J %} wKr & 


r\ l Pi '» w i 


OPEN 


iCONTAINS CURRENT TEST 


*• 


i 16^ 




000000 


NXTST ! 


OPEN 


fCONTAIflS ADDR OF NEX1 


TEST, 




001262 




ICTR | 


open 


; CONTAINS CURRENT ITERATION COUNT 


lift'? 
: : * , 


00 1 264 








> CONTAINS CURRENT SCOPE POINTER, 


1163 


00 1 266 


'% 01 (A CA (A f% 


PRG 1 1 




jCONTAINS PROGRAM INDICATORS 


1164 


001 270 


005 376 


r Hv» 1 AD I 


PRG»0 


t PRG0 START 


ADDRESS 




1 1 65 


001 272 


007666 




PRG1 


jPRGl START 


ADDRESS 




1166 


001 274 


010216 




PPG2 


»PRG2 START 


ADDRESS 




1167 


001 276 


01 1634 




PRG3 


1 PRG3 START 


ADDRESS 




1163 


001 300 


01 2302 




PRG4 


j PRG4 START 


ADDRESS 




1169 


001 302 


012660 




PRG5 


}PRG5 START 


ADDRESS 




1170 


001 304 


01 3454 




PRG6 


; PRG6 START 


ADDRESS 




1171 


001 306 


01 3606 




PRG7 


j PRG7 START 


ADDRESS 




1172 


001310 


014134 




PRG1 


j PRG10 START 


ADDRESS 




1173 


001 31 2 


014322 




PRG1 1 


jPRGll START 


ADDRESS 




1174 


001 314 


014372 




PRG12 


j PPG1 2 START 


ADDRESS 




1175 


001316 


014524 




PRG1 3 


JPRG13 START 


ADDRESS 




1176 


001 320 




EMTTABs 










1177 


001320 


003566 




DLY 


JPOINTER FOP 


EMT CALL 


DELAY 


1178 


001 122 


002514 




EHLT 


jPOINTER FOR 


EMT CALL 


EHALT 


1179 


001324 






SRSETT 


JPOINTER FOR 


EMT CALL 


SRESET 


1180 


001326 


003400 




TYP 


; POINTER FOR 


EMT CALL 


TYPE 


1181 


001 330 


00 3534 




TYPS 


J POINTER FOR 


EMT CALL 


TYPES 


1182 


001 332 


004262 




5TAL 


jPOINTER FOR 


EMT CALL 


STALL 


118 3 


00 1334 


003234 




ERR 


jPOINTER FOR 


EMT CALL 


ERROR 


1184 


001 336 


003244 




err i 


jPOINTER FOR 


EMT CALL 


ERR0R1 


1185 


001 340 


002462 




CHLT 


j POINTER FOR 


EMT CALL 


CHALT 


* * 8 , 


001 342 


aiAt iii) 

vv 4 1 3 i 




5TPTR V 


j POINTER FOR 


EMT CALL 


STRDRV 


1187 


001 344 


002762 




5TPTPV 


j POINTER FOR 


EMT CALL 


STPCHV 


* I nft 


001 346 


002 110 






jPOINTER FOR 


EMT CALL 


SCOPE 


1189 


001 350 


014722 




OPTS 


jPOINTER FOR 


EMT CALL 


OPTSEL 


1190 


001 352 


015156 




CNtLU 


J POINTER FOR 


EMT CALL 


CNTL 


1191 


00 135 4 


01 465 4 






t POINTER FOP 


EMT CALL 


TTYIN 


1192 


001 356 


0147 40 




VAL J.NP 


; POINTER FOP 


EMT CALL 


VALID 




00 1360 


015120 




C KS^RR 


jPOINTER FOR 


EMT CALL 


CKSWR 


















1195 
















1196 


00 1362 


000000 




OPEN 








1197 


(A (A 1 3 £. A 
W0 130'* 


000000 


TMP1 j 


X* 








1198 


001366 


000000 


TMP2 ; 


OPEN 








1199 


001 370 


000001 


FPST ! 


1 












51 51 (A (A CA (A 


C 0U N T t 










1 201 


00 1374 


000000 




OPEN 








1202 


001376 


000000 


RCNT j 


OPEN 


•CHARACTER COUNT 




1203 


001400 


000000 


CRBUF! 


OPEN 


;HOLDS ONE CHARACTER FROM READER, 


1204 


001402 


000000 


CHRi S 


OPEN 








1205 


001404 


000000 


CHP2! 


OPEN 








1206 


001406 


000000 


CHR3 i 


OPEN 








1207 


001410 


000000 


chri a: 


OPEN 








1208 


001412 


000000 


CHP2AJ 


OPEN 








1209 


001414 


000000 


CHR3A! 


OPEN 








1210 


001416 


000000 


EPCTRS 


OPEN 








1211 


001420 


000000 


CTPAj 


OPEN 








1212 


001422 


000000 


CTRBs 


OPEN 
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1213 


001424 


000000 






CTRCi 


OPEN 








1214 


001426 


000000 






CTRD : 


OPEN 








1215 


001430 


000000 






XCNTl 


OPEN 








1216 


001432 


01 2706 


001200 




STARTl 


MOV 


»SPB0T,%6 


;SET BOTTOM OF SP STACK, 




1217 


001436 


005067 


176334 






CLR 


PSW 






1218 


001442 


005767 


177722 






TST 


FRST 






1219 


001446 


001 404 








BEO 


IS 






1220 


00) 450 


104003 








TYPE 








1221 


001452 


020773 








S TITLE 








1222 


001454 


005067 


177710 






CLR 


FRST 






1223 


001460 


013746 


000004 




l$l 


MOV 


§#4, -(R6) 






1224 


001464 


012737 


001662 


000004 




MOV 


*X0RA,<a#4 






1225 


001472 


012737 


000433 


177060 




MOV 


#433,ia#l77060 






1226 


001500 


012637 


000004 






MOV 


(%6)+,»*4 






1227 


001504 


012737 


177777 


002040 




MOV 


»-l,(»»XORFLG 






1228 




















1229 


001512 


012767 


000026 


177530 




MOV 


#26, MSEC 






1230 


001520 


104003 








TYPE 








1231 


001522 


002042 








MESS 








1232 


001524 


012767 


160000 


177456 




MOV #160000, PRS 


JXOP PRS ADDRESS 




1233 


001532 


012767 


160002 


177452 




MOV #160002, PRB 


;XOP PRB ADDRESS 




1234 


001540 


012767 


160004 


177446 




MOV #160004, PPS 


JXOP PPS ADDRESS 




1235 


001546 


012767 


160006 


177442 




MOV #160006, PPB 


jXOR PPB ADDRESS 




1236 


001554 


012767 


000770 


177436 




MOV *770,RDRVTR 


jXOR READER VECTOR 




1237 


001562 


012767 


000774 


177434 




MOV #774,PCHVTR 


;XOR PUNCH VECTOR 




1238 


001570 


012767 


000006 


176206 


INGXOPJ 


MOV #6, 


MACHEP 






1239 


001576 


005067 


177454 






CLR 


RTNNO 






1240 


001602 


012767 


000003 


177562 


is: 


MOV 


#3, COUNT 






1241 


001610 


012767 


020314 


013106 




MOV 


#SSTEST,TLX 






1242 


001616 


104014 








OPTSEL 








1243 


001620 


022767 


000003 


177544 




CMP 


#3, COUNT 






1244 


001626 


001765 








BEQ 


IS 






1245 


001630 


016700 


177530 






MOV 


TMP1,%0 






1246 


001634 


005067 


177570 






CLR 


XCNT 


jINIT THE XOR PROGRAM CONTROL 


1247 


001640 


042700 


177760 






BIC 


#177760, %0 


', LIMIT (SR) TO BITS 3-0 




1248 


001644 


020027 


000013 






CMP 


%0, »13 


jCOMPARE (SR) TO PROGRAM 


LIMIT 


1249 


001650 


101410 








BLOS 


CRTA 


jVALID PROGRAM NUMBER? 




1250 


001652 


104003 








TYPE 




J TYPE INCORRECT PROGRAM 


MESSAGE 


1251 


001654 


015267 








CM2 








1252 


001656 


104010 








CHALT 




jCOMMON HALT, 




1253 


001660 


000664 








BR 


START 


j START OVER, 




1254 


001662 


022626 






XORAl 


CMP 


(R6H, CR6H 






1255 


001664 


012637 


000004 






MOV 


(R6)+,9#4 






1256 


001670 


000737 








BR 


INGXOR 






1257 


001672 


005067 


177370 




CRTA? 


CLR 


PRGID 






1258 




















1259 




















1260 




















1261 


001676 


010067 


177336 






MOV 


%0,PRGNUM 


jSAVE PROGRAM NUMBER AT 


PRGNUM 


1262 


001702 


006300 






CRTBl 


ASL 


%0 


JR0X2 




1263 


001704 


000170 


001270 






JMP 


§PRGTAB(0) 


;G0 TO SELECTED PROGRAM, 




1264 


001710 


016767 


177336 


177342 


GETRDYl 


MOV 


KSTART, NXTST 


ADDR OF 1ST ROUTINE TO 


NXTST 


1265 


001716 


012767 


000006 


176060 


CLEAN 1 


MOV 


#6, MACHER 


jSET UP BUS ERRROR TRAP, 




1266 


001724 


012706 


001200 






MOV 


#SPB0T,R6 


jSET UP STACK. 




1267 


001730 


104002 








SRESET 








1268 


001732 


005067 


176040 






CLR 


PSW 
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1269 


001 736 


004767 


000422 




GTRDYAj 


JSR 


%7 , FORWD 


■ al^f F IP /"ID UJ ft D ft «n n kIB*vfH nrtttfft Y MB* 

{ RUuli r UKWANU TU NLXT" RUUTXNL , 


1270 


001742 


032777 


001000 


177234 


GTRDYB 1 


BIT 


#BIT9 , 8SWR 


{SELECT ROUTINE? 


1271 


001750 


001003 








BNE 


GTRDYC 


{BR IF YES, 


1272 


001752 


004767 


000440 






JSR 


%7 , GOTST 


J GO RUN ROUTINE, 


1273 


001756 


000532 








BR 


CHNB 


{NO GO, MANUAL RTN BYPASSED, 


1274 


001 760 


012767 


000003 


177404 


GTRDYC i 


MOV 


t 3 , COUNT 




1275 


001766 


012767 


020246 


012730 




MOV 


#SRTN , TLX 




1276 


001774 


104014 








OPTSEL 






1277 


001776 


022767 


000003 


177366 




CMP 


#3, COUNT 




1278 


002004 


001765 








BEQ 


GTRDYC 




1279 


002006 


016700 


177352 






MOV 


TMPl , %0 




1280 


002012 


042700 


177600 






BIC 


#1 77600, %0 


{MASK UNDESIRED BITS 


1281 


002016 


126700 


177234 




NTYETI 


CMPB 


PTNNOi %0 


{COMPARE RTNNO TO (R0) 


1282 


002022 


001017 








BNE 


GTRDYD 


{BRANCH IF ROUTINE NOT FOUND YET 


1283 


002024 


004767 


000366 






JSR 


%7 , GOTST 


{GO RUN ROUTINE, 


1284 




104003 








TYPE 




{NO GO, MANUAL RTN BYPASSED, 


1285 




015467 








CM5 




{TYPE MESSAGEi 


1286 


002034 


104010 








CHALT 






1287 


002036 


000724 








BR 


GETRDY 




12 8 8 


002040 


000000 






XQRFLGl 









1289 


002042 


021445 


041520 


030461 


MESSl 


.ASCII 


'%#PC1 1 XOR 


TST8' 


1290 


002050 


054040 


051 1 17 


052040 










1291 


002056 


052123 


100 












1292 




002062 








, EVEN 






1293 


002062 


022767 


177777 


177170 


GTRDYDJ 


CMP 


#-1 i nxtst 


{NO. CHECK FOR LAST ROUTINE, 


1294 


002070 


001403 








BEO 


INCRTN 




1295 


002072 


004767 


000266 






JSR 


%7 , FORWD 




1296 


002076 


000747 








BR 


NTYET 




1297 


002100 


104003 






INCRTN | 


TlfPE 




{TYPE INCORRECT RTN MESSAGE, 


1298 


002102 


015325 








CM3 






1299 


002104 


104010 








CHALT 




•COMMON HALT, 


1300 


002106 


000700 








BR 


GETRDY 


{ START OVER, 


1301 


002110 


012706 


001 200 




CHAINt 


MOV 


#SPBQT»R6 


{RESTORE STACK, 


1302 


0021 14 


104020 










CKSWR 




1303 


0021 16 


005737 


002040 






TST 


PIXORFLG 


{IS XOR TESTER HERE? 


1304 


002122 


10001 1 








BPL 


3S 


{BR IF NOT 


1305 


002124 


013746 


000004 






MOV 


?#4, -C%6) 


{SAVE MEM, 4 


1306 


002130 


012737 


002354 


000004 




MOV 


#XOR, 9#4 




1307 


0021 36 


005737 


177060 






TST 


B* 177060 


{IS XOR IN ERROR? 


1308 


002142 


012637 


000004 






MOV 


(%6)+,§#4 


{NO, REPLACE MEM, 4 


1309 


002146 


032777 


040000 


177030 


3S J 


BIT 


#BITl 4 , 9SWR 


{ SCOPE? 


1310 


002154 


001 404 








BEQ 


S2$ 


{BR IF NOT 


1311 


0021 56 


005067 


175614 




SI $ I 


CLR 


PSW 




1312 


002162 


0001 77 


17707b 






JMP 


PSCOPTR 


{GO TO SCOPE ENTRY 


1313 


0021 66 






17 7010 


S2S : 


BIT 




{INhlBIT ITERATION? 


1314 


002174 


001003 








BNE 


CHNAA 


{BR IF YES, 


1315 


002176 


005367 


177060 






DEC 


ICTR 


{NO, ICTR 0? 


1316 


002202 


001 365 








BME 


SI S 


{BR IF NOT 


1317 


002204 


032777 


002000 


176772 


CHNAAI 


BIT 


#BIT10, §SWR 


{HALT AT END OF TEST? 


1318 


002212 


001 414 








BEQ 


CHNB 


{BR IF NOT, 


1319 


002214 


005067 


177144 






CLP 


TMPl 




1320 


002220 


116767 


177032 


177136 




MOVB 


RTNNO,TMpl 




1321 


002226 


004567 


002622 






JSR 


%5,ACNV4 




1322 


002232 


001 364 








TMP1 






1323 


002234 


020756 








PTNN 






1324 


002236 


104003 








TYPE 
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MACY11 


27(732) 


18-MAR- 


76 09144 


I PAGE 30 




DEPCAE, 


,SRC 
















1325 


002240 


020736 








ENDRTN 






1326 


002242 


104010 








CHALT 






1327 


002244 


032777 


001000 


176732 


CHNB J 


BIT 


#6IT9,8SWR 


{ SELECT ROUTINE? 


1328 


002252 


001216 








BNE 


GETRDY 


{BR IF YES, 


1329 


002254 


022767 


177777 


176776 




CMP 


#-l,NXT5T 


{NO, LAST TEST? 


1330 


002262 


001215 








BNL 


CLEAN 


{BR IF NOT, 


1331 


002264 


005767 


177550 






TST 


XORFLG 




1332 


002270 


100015 








BPL 


IS 




1333 


002272 


005167 


177132 






COM 


XCNT 




1334 


002276 


005767 


177126 






TST 


XCNT 




1335 


002302 


100005 








BPL 


2$ 




1336 


002304 


012767 


010240 


176740 




MOV 


#CT0» kstart 


{ START PUN LOGIC TESTS IF XOR 


1337 


002312 


000167 


177372 






JMP 


GETRDY 




1338 


002316 


012767 


005432 


176726 


2$t 


MOV 


# AT0, KSTART 


{ START RDR LOGIC TESTS IF XOR 


1 339 


002324 


104003 






is: 


TYPE 


{TYPE PROGRAM END MESSAGE. 


1340 


002326 


015263 








APGEND 






1341 


002330 


013700 


000042 






MOV 


9#42, R0 


{ GET CONTENTS OF 42, 


1342 


002334 


001405 








BEQ 


HERE 


{BR IF 0, 


1343 


002336 


000005 








RESET 






1344 


002340 


004710 






LOGIC 1 


JSR 


PC, (0) 


{ RETURN TO MONITOR, 


1345 


002342 


000240 


000240 


000240 




, WORD 


NOP, NOp, NOP 


1346 


002350 


000167 


177334 




HERE 1 


JMp 


GETRD* 


{ REPEAT, 


1347 


002354 


022626 






XORi 


CMP 


(%6)+, (%6)+ 


{POP STACK 


1348 


002356 


012637 


000004 






MOV 


(%6)+, £#4 


{ REPLACE MEM 4 


1349 


002362 


000675 








BR 


SIS 


{GO TO SCOPE ENTRY 


1350 


002364 


016705 


176670 




FORWD : 


MOV 


NXTST, %5 


{ ADDR OF NEXT ROUTINE TO R5, 


1351 


002370 


012567 


176662 






MOV 


(5)+, RTNNO 


{GET NEXT ROUTINE NUMBER. 


1 352 


002374 


012567 


176660 






MOV 


(5)+, NXTST 


{GET ADDR OF NEXT "NEXT" ROUTINE, 


1353 


002400 


012567 


176656 






MOV 


(5)f, ICTR 


{GET ITERATION COUNT, 


1354 


002404 


012567 


176654 






MOV 


(5)+,SCOPTR 


{ GET SCOPE LOOP ENTRY POINTER, 


1355 


002410 


010567 


176640 






MOV 


%5,CURTST 


{ADDR OF NOW CURRENT TEST TO CURTST 


1356 


002414 


000207 








RTS 


%7 


{ EXIT FORWD SUBROUTINE, 


1357 


002416 


005767 


176634 




GOTSTl 


TST 


RTNNO {CHECK 


FOR MANUAL RTN, 


1358 


002422 


100005 








BPL 


GOTSTA 


{ BRANCH IF NOT MANUAL RTN, 


1359 


002424 


032777 


000400 


176552 




BIT 


«BIT8,@SWR 


{MANUAL RTN, BYPASS IT? 


1360 


002432 


001401 








BEQ 


GOTSTA 


{NO, RUN IT, 


1361 


002434 


000207 








RTS 


%7 


{BYPASS MANUAL ROUTINE, 


1362 


002436 


000177 


176612 




GOTSTAi 


JMP 


9CURTST 


{GO RUN TEST 


1363 










{ EMT INTERPRETER ROUTINE. 




1364 


002442 


010046 






EMTINTI 


MOV 


R0,-(6) 


{PUSH R0, 


1365 


002444 


016600 


000002 






MOV 


2(6), R0 


{ GET EMT PC, 


1366 


002450 


014000 








MOV 


-(0),R0 


{GET EMT CALL, 


1367 


002452 


006300 








ASL 


R0 


{TIMES 2, 


1368 


002454 


016000 


171320 






MOV 


EMTTAB-10000(0) 


,R0 {DEVELOP EMT RTN ADDR, 


1369 


002460 


000200 








RTS 


R0 


{GO TO EMT RTN, RESTORE R0, 


1370 










{COMMON 


HALT ROUTINE, 




1371 


002462 


011600 






CHLTI 


MOV 


(6),R0 




1372 


002464 


005740 








TST 


-(0) 




1373 


002466 


010067 


176672 






MOV 


%0,TMP1 




1374 


002472 


004567 


002330 






JSR 


%5,ACNV6 




1375 


002476 


001364 








TMPl 






1376 


002500 


020717 








GWAS 






1377 


002502 


104003 








TYPE 






1378 


002504 


020711 








PCHLT 






1379 


002506 


000000 








HALT 






1380 


002510 


104020 








CKSWR 
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1381 


002512 


000002 


1382 






1383 


002514 


005777 


1384 


002520 


100002 


1385 


002522 


000000 


1386 


002524 


104020 


1387 


002526 


000002 


1388 






1389 


002530 


005777 


1390 


002534 


100401 


1391 


002536 


000207 


1392 


002540 


104004 


1393 


002542 


017404 


1394 


002544 


016334 


1 395 


002546 


177777 


1396 


002550 


104010 


1397 


002552 


000766 


1398 






1399 






1400 
1401 






1402 






1403 


002554 


005767 


1404 


002560 


001425 


1405 


002562 


013746 


1406 


002566 


012737 


1407 






1408 
1409 






1410 






1411 


002574 


052777 


1412 


002602 


104000 


1413 


002604 


000001 


1414 


002606 


012537 


1415 






1416 






1417 


002612 


104000 


1418 


002614 


000050 


1419 






1420 


002616 


012637 


1421 


002622 


000005 


1422 


002624 


01 1505 


1423 


002626 


000205 


1424 


002630 


022626 


1425 


002632 


000771 


1426 


002634 


062705 


1427 


002640 


000205 


1428 






1429 






1430 


002642 


032777 


1431 


002650 


001001 


1432 


002652 


000207 


1433 


002654 


004767 


1434 


002660 


000770 


1435 






1436 


002662 


004767 



176464 



002630 000004 



177060 





RTI 






> ERROR 


HALT ROUTINE, 




EHLTi 


TST 


PSWR 


jCHECK FOR HALT ON ERROR, 




BPL 


EHLTA 


; BRANCH IF NO HALT DESIRED 




HALT 








CKSWR 






EHLTAI 


RTI 




EXIT 


i ROUTINE TO CHECK FOR 


READER ERROR, 


ARDERI 


TST 


PPPS 


j TEST ERROR BIT IN PRS 




AMI 


1$ 


jBRANCH IF ERROR BIT SET, 




RTS 


%7 


?NOT SET, EXIT, 


181 


TYPES 




fTYPE STATUS MESSAGE AND 




SMI 




J INSTRUCTIONS 




IM6 








-1 








CHALT 




i HALT TO WAIT FOR USER, 




BR 


ARDER 


IGO TEST AGAIN, 


;DDH» 


XOR PROGRAMMABLE 


SIMULATOR OF PC05 (PUNCH/READER) 


1CALL 


-JSR 


%5,PCSIM 



PCSlMj 



1SI 

RETRNJ 



TST 
BEO 
MOV 
MOV 



BIS 

DELAY 

1 

MOV 



DELAY 
50 

MOV 

RESET 

MOV 

RTS 

CMP 

BP 

ADD 

RTS 



SIMULATOR CONSTANT 
tfLABLE OF NEXT INSTRUCTION IF ON XOR TESTER 

IF NOT ON AN XOR, THIS ROUTINE EXIT TO THE INSTRUCTION FOLLOWING THE CALL 



XORFLG 
RETRN 
9#4f-(%6) 
#1$,«*4 



; ARE WE ON AN XOR TESTER 
?IF NOT ON AN XOr TESTER RETURN 
jSAVE TRAP CATCHER 

j IF XOR TRAPS DURRING LOAD GO TO 18 



; YES, INHIBIT A H SIGNAL FROM CAUSING ERROR DUfc DIFFERENT 
;CIPCUIT DELAYS AT THE TEST HEAD 



(%5) + ,&>#l77060 ; LOAD SIMULATOR 



(%6) + * <M4 

(%5),%5 
%5 

(R6)+, (R6) + 
3$ 

#4,%5 

%5 



;WAIT FOR ERROR BlT TO SETTLE 



j REPLACE TRAP CATCHER 



J RETURN TO TEST SETUP 
; RETURN TO TEST 
;FIX STACK 

fCONTlNUG WITH THE SIM ROUTINE 

;NOT AN XOR TESTER , RETURN TO PROGRAM AFTER PCSIM C«LJ, 



j ROUTINE TO CHECK FOR READER READY, 



004000 


176340 APRDY! BIT 


I 4000 , APRS 


; TEST BUSY BIT, 




BNE 


ARRDYA 


; BRANCH IF BUSY BlT SET, 




RTS 


%7 


; READER READY, EXIT, 


000036 


ARRDYAt JSR 


%7,TSM2 


; TYPE STATUS AND INSTRUCTION MESSAGE 


BR 


ARRD* 


;GO CHECK AGAIN 




;ROUTINE TO 


FETCH A CHARACTER 




177754 


AREAD : JSR 


%7, ARRDY 


;CHECK FOR READER READY, 
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1437 


002666 


105277 


176316 




AREAD1 I 


INCB 


epps 


; ENABLE READER 


1438 


002672 


005777 


176312 




ARDAj 


TST 


PPRS 


; TEST ERROR BIT 


1439 


002676 


100404 








BMI 


ARDB 


; BRANCH IF ERROR BIT SET, 


1440 


002700 


105777 


176304 






TSTB 


SPRS 


jCHECK OONE BIT 


1441 


002704 


100372 








BPL 


ARDA 


; BRANCH IF NOT DONE, 


1442 


002706 


000207 








RTS 


%7 


j DONE , EXIT. 


1443 


002710 


004767 


000002 




ARDBl 


JSR 


%7,TSM2 


; TYPE STATUS AND INSTRUCTION MESSAGE 


1444 


002714 


000762 








BR 


AREAD 


; TRY AGAIN , 


1445 


002716 


104004 






TSM21 


TYPES 




; TYPE READER NOT READY STATUS 


1446 


002720 


017433 








SM2 




; MESSAGE AND HALT » 


1447 


002722 


016334 








1M6 






1448 


002724 


177777 








-1 






1449 


002726 


104010 








CHALT 






1450 


002730 


000207 








RTS 


%7 


JEXIT 


1451 










iROUTINE TO SET 


READER INTERRUPT 


' VECTOR AND PRIORITY 


1452 


002732 


017667 


000000 


000012 


STPTRVi 


MOV 


§(6)#STPRA+2 


; MOVE VECTOR ADDR TO STPRA+2 


1 45 J 


002740 


062716 


000002 






ADD 


*2,P%6 


;SET UP EXIT 


1454 


002744 


016701 


176250 






MOV 


PDRVTR, %1 




1455 


002750 


012721 


000000 




STPRAj 


MOV 


UOPENf (I)* 


;SET VECTOR ADDRESS 


1456 


002754 


016721 


176242 






MOV 


RDRLVL, (1 )+ 


;SET PRIORITY 


1457 


002760 


000002 








RTI 




;EXIT 


1458 










! ROUTINE TO SET 


PUNCH INTERRUPT 


VECTOR AND PRIORITY , 


1459 


002762 


017667 


000000 


000012 


STPTPVs 


MOV 


e(6)#STPPA+2 


;MOVE VECTOR ADDR TO STPPA+2 


1460 


002770 


062716 


000002 






ADD 


*2,e%6 


J SET UP EXIT 


1461 


002774 


016701 


176224 






MOV 


PCHVTR,%1 




1462 


003000 


012721 


000000 




STPPAl 


MOV 


#0PEN, (l)+ 


;SET VECTOR ADDRESS, 


1463 


003004 


016721 


176216 






MOV 


PCHLVL, (1)+ 


,'SET PRIORITY 


1464 


003010 


000002 








RTI 




*EXIT. 


1465 










jPOUTINE TO ISSUE RESET, 




1466 


003012 


012700 


052525 




SRSETTI 


MOV 


#52525, %0 


; DATA TO R0, 


1467 


003016 


005100 








COM 


%0 


^COMPLEMENT (R0), 


1468 


003020 


010067 


177770 






MOV 


%0,SPSETT+2 


;(R0) TO SRSETT+2, 


1469 


003024 


000005 








RESET 




; ISSUE RESET, (R0) IS 


1470 


003026 


000002 








RTI 




; DISPLAYED , EXIT. 

IE EXITS WITH NUMBER IN REGISTER 0, 


1471 










; RANDOM 


NUMBER 


GENERATOR, ROUTIN 


1472 


003030 


016700 


000042 




PNGEN I 


MOV 


RP1,%0 




1473 


003034 


006100 








ROL 


%0 




1474 


003036 


006100 








ROL 


%0 




1475 


003040 


066700 


000034 






ADD 


RP2,%0 




1476 


003044 


010067 


000026 






MOV 


%0,RP1 




1477 


003050 


006100 








ROL 


%0 




1478 


003052 


006100 








ROL 


%0 




1479 


003054 


066700 


000020 






ADD 


RP2,%0 




1480 


003060 


006100 








ROL 


%0 




1481 


003062 


006100 








ROL 


%0 




1482 


003064 


010067 


000010 






MOV 


%0,RP2 




1483 


003070 


016700 


000002 






MOV 


RPI,%0 




1484 


003074 


000207 








RTS 


%7 


;EXIT, NUMBER IN P0 


1485 


003076 


001233 






RP1I 


1233 






1486 


003100 


007622 






RP2 1 


7622 






1487 










1 SUBROUTINE TO 


READ CHARACTER FROM READER USING INTERRUPT, 


1488 


003102 


104011 






BREAD: 


STRDRV 




jSET READER VECTOR 


1489 


003104 


003162 








BREADB 




;TO BREADB 


1490 


003106 


012767 


000340 


174662 




MOV 


#PRTY7,PSW 


JSET PRIORITY 7, 


1491 


003U4 


004767 


177522 






JSR 


%7, ARRDY 


JCHECK FOR READER READY, 


1492 


003120 


052777 


000101 


176062 




BIS 


«101,9PRS 


) ENABLE PTR AND PTRI, 
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1493 


003126 


104000 








DELAY 




; WAIT FOR READER INTERRUPT , 


1494 


003130 


000226 








1 50 g 






1495 


003132 


005077 


176052 






CLR 


9PRS 


; CLEAR PTRI ENABLE ( 


1496 


003136 


104003 








TYPE 




{ TYPE NO PTR RESPONSE 


1497 


003140 


020124 








EM7 




{ MESSAGE 


1498 


003142 


000757 








BR 


BREAD 


{TRY AGAIN, 


1499 


003144 


017767 


176042 


176226 


BREADAl 


MOV 


§PRB, CRBUF 


fCHAR READ TO CRBUF, 


1500 


003152 


022626 








POPSP2 






1501 


003154 


005067 


174616 






CLR 


psw 


{CLEAR STATUS, 


1502 


003160 


000207 








RTS 


%7 


{EXIT SUBROUTINE, 


1503 


003162 


005077 


176022 




BREADBt 


CLR 


@PRS 


{CLEAR PTR INTERRUPT ENABLE* 


1504 


003166 


005777 


176016 






TST 


8PR5 


{TEST FOR ERROR, 


1505 


003172 


100411 








BMI 


BREADC 


jbranch if error, 


1506 


003174 


105777 


176010 






TSTB 


9PRS 


•TEST FOR DONE BIT, 


1507 


003200 


100403 








BMI 


BRDBB 


1 BRANCH IF DONE BIT SET, 


1508 


003202 


104007 








ERPOR1 




{ERROP«FALSE READER INTERRUPT, 


1509 


003204 


020140 








EM10 






1510 


003206 


000405 








BR 


BRDCC 




1511 


003210 


012716 


003144 




BPDBBl 


MOV 


&BREADA, S%6 


{MOOIFY INTERRUPT EXIT TO BREADA, 


1512 


■ 003214 


000002 








RTX 




{ OK , EXIT INTERRUPT* 


1513 


003216 


004767 


177474 




BREADCI 


JSR 


%7 , TSM2 


{TYPE NOT READY MESSAGE* 


1514 


003222 


012716 


003230 




BRDCCI 


MOV 


ftBRDDD , 9%6 


{SET UP TO RETRY, 


1515 


003226 


000002 








RTI 




;EXIT INTERRUPT, 


1516 


003230 


022626 






BRDDO! 


P0P5P2 






1517 


003232 


000723 








BR 


BREAD 


{GO TRY AGAIN, 


1518 










{ ERROR 


ROUTINES 






1519 


003234 


004767 


000060 




EPRl 


JSR 


%7 , ERRA 


{FIRST ERROR TYPEOUT 


1520 


003240 


104001 








EHALT 




{GO HALT IF hALT SWITCH IS SET, 


1521 


003242 


000002 








RTI 




j EXIT, 


1522 


003244 


004767 


000050 




ERRi J 


JSR 


%7, FRRA 


{FIRST ERROR TYPEOUT 


1523 


003250 


004767 


000024 






JSR 


%7 , INHPRT 


{INHIBIT PRINT? 


1524 


003254 


000406 








BR 


EPRl A 


;NO PRINT 


1525 


003256 


01 1600 








MOV 


P%6 , %0 


{DEVELOP ADDRESS OF ADDITIONAL 


1526 


003260 


01 1067 


000002 






MOV 


P%0, , +6 


{ERROR TYPEOUT, 


1527 


003264 


104003 








TYPE 




{ADDITIONAL ERROR TYPEOUT, 


1528 


003266 


000000 








OPEN 






1529 


003270 


104001 








EHALT 




{GO HALT IF HALT SWITCH IS SET, 


1530 


003272 


06271b 


000002 




ERRI Aj 


ADD 


#2, 0%6 


{SET UP EXIT, 


1531 


003276 


000002 








RTI 




J EXIT 


1532 


003300 


104020 






INHPRTl 


CKSkR 






1533 


003302 


032777 


020000 


175674 




BIT 


SBITl 3 , PSWR 


{INHIBIT PRINT? 


1534 


003310 


001002 








BNF. 


, + 6 


{BR IT YES, 


1535 


003312 


062716 


000002 






ADD 


% 2 , B%6 


; h • 


1536 


00 3 316 


000207 










%7 


• EXIT 


1537 


003320 


016600 


000002 




ERR A J 


MOV 


2(6), R0 


{GET KMT PC, 


1538 


003324 


005740 








TST 


-(0) 


{DECREMENT Bi 2, 


1539 


003326 


010067 


176030 






MOV 


%0, ERRT 


; ADDRESS OF ERROR CALL TO ERRT 


1540 


003332 


004767 


177742 






JSR 


%7, INHPRT 


; INHIBIT PRINT? 


1541 


003336 


000207 








RTS 


%7 


?MQ PRINT, 


1542 


003340 


004567 


001462 






JSR 


%5,ACNV6 


;CONVERT ERROR CALL ADDRESS TO ASCII , 


1543 


003344 


001362 








ERRT 






1544 


003346 


017623 








APC 






1545 


003350 


004567 


001500 






JSR 


%5, ACNV4 


•CONVERT PROGRAMf TO ASCII 


1546 


003354 


001240 








PRGNUM 






1547 


003356 


017602 








APNUMB 






1548 


003360 


004567 


001470 






JSR 


%5, ACNV4 


{CONVERT TESTS TO ASCII 
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1549 


003364 


001256 








RTNNO 






1550 


003366 


017612 








ATNUMB 






1551 


003370 


104003 








TYPE 




{TYPE ERROR MESSAGE 


1552 


003372 


017570 








EM0 






1553 


003374 


104020 








CKSfcR 






1554 


003376 


000207 








RTS 


%7 


{EXIT. 


1555 










{SUBROUTINE TO 


OUTPUT ASCII MESSAGE ON TELETYPE PRINTER, 


1556 


003400 


011600 






TYPJ 


MOV 


B%6, %0 


{GET ADDRESS THAT CONTAINS MESSAGE ADDRESS, 


1557 


003402 


062716 


000002 






ADD 


82,@%6 


{SET UP EXIT, 


1558 


003406 


01 1000 








MOV 


0%0,%tf 


{ ADDRESS OF MESSAGE TO R0, 


1559 


003410 


1 12067 


0001 16 




TYPA? 


MOVB 


(0)+, TYPDAT 


{ GET CHARACTER 


1560 


003414 


122767 


0^0100 


0001 10 




CMPfa 


#100, TYPDAT 


;CHECK FOR n (4"CHARACTEP 


1561 


003422 


001006 








BNfc 


TYPC 


; BRANCH IF NOT"?", 


1562 


003424 


112767 


000177 


000100 




MOVB 


#177, TYPDAT 


{OUTPUT RUBOUT, 


1563 


003432 


004767 


000030 






JSR 


%7,TYPD 




1564 


003436 


000002 








RTI 




{TERMINATOR CHAR, DONE, EXIT, 


1565 


003440 


122767 


000045 


000064 


TYPC5 


CMPB 


#45, TYPDAT 


; CHECK FOR«%", 


1566 


003446 


001416 








BEQ 


TYPF 


; BRANCH IF H %" 


1567 


003450 


122767 


000043 


000054 




CMPB 


#43, TYPDAT 


jNOT«%% CHECK FOp"#", 


1568 


003456 


001417 








BEU 


TYPG 


{ BRANCH IF "#'« 


1569 


003460 


004767 


000002 






JSP 


%7,TYPD 


j TYPE CHAR IN TYpDAT 


1570 


003464 


000751 








BR 


TYPA 




1571 


003466 


116777 


000040 


175542 


TYPDi 


MOVB 


TYPDAT, 9TPB 


jOUTPUT CHARACTER TO PRINTER 


1572 


003474 


105777 


175534 






TSTB 


@TPS 


j WAIT FOR DONE FLAG, 


1573 


003500 


100375 








BPL 


.-4 




1574 


003502 


000207 








RTS 


%7 


{EXIT 


1575 


003504 


112767 


000015 


000020 


TYPFI 


MOVB 


#15, TYPDAT 


;MOVE CARRIAGE RETURN CODE TO TYPDAT 


1576 


003512 


004767 


177750 






JSR 


%7,TYPD 


{GO TYPE CHAR, 


1577 


003516 


H27b7 


000012 


000006 


TYPG: 


MOVB 


#12, TYPDAT 


;MOVE LF CODE TO TYPDAT, 


1578 


003524 


004767 


177736 






JSR 


%7,TYPD 


{GO TYPE CHAR, 


1579 


003530 


000727 








BR 


TYPA 




1580 


003532 


000000 






TYPDAT: 


OPEN 






1581 










{ SUBROUTINE TO 


OUTPUT A SERIES 


OF ASCII MESSAGES ON TELETYPE PRINTER 


1582 


033534 


011600 






TYPSl 


MOV 


@%6,%0 


;G£T ADDRESS THAT CONTAINS MESSAGE ADDRESS 


1583 


003536 


062716 


000002 






ADD 


#2,@%6 


; UPDATE TO NEXT MESSAGE ADDRESS 


1584 


003542 


01 1067 


000014 






MOV 


P%0,TYPSB 


; ADDRESS OF MESSAGE TO TYPSB 


1585 


003546 


022767 


177777 


00000b 




CMP 


#-l,TYPSB 


{CHECK FOR TERMINATOR 


1586 


003554 


001001 








BHE 


TYPSA 


{ BRANCH IF NOT TERMINATOR, 


1587 


003556 


000002 








RTI 




; TERMINATOR, EXIT 


1588 


003560 


104003 






TYPSA J 


TYPE 




{CALL ON TYP SUB TO TYPE MESSAGE 


1589 


003562 


000000 






TYPSBf 


OPEN 




j ADDRESS OF MESSAGE GOES HERE 


1590 


003564 


000763 








BR 


TYPS 


{GO PROCESS NEXT MESSAGE 


1591 










{SUBROUTINE TO 


DELAY A SPECIFIED NUMBER OF MILLISECONDS 


1592 


003566 


011667 


000124 




DLYI 


MOV 


§%6,DLCNT 


{ GET ADDRESS THAT CONTAINS DELAY COUNT 


1593 


003572 


062716 


000002 






ADD 


#2,?%6 


{SET UP EXIT 


1594 


003576 


017767 


0001 14 


000112 




MOV 


$DLCNT, DLCNT 


{MILLISECONDS COUNT TO DLCNT 


1595 


003604 


005067 


174166 






CLR 


PSW 




1596 


003610 


016767 


175434 


000076 


DLYAi 


MOV 


MSEC,DLCTR 


{ MOVE 1 MSEC DELAY CONSTANT TO DLCTR 


1597 


003616 


016767 


000072 


000070 


DLYBj 


MOV 


DLCTR, DLCTR 




1598 


003624 


016767 


000064 


000062 




MOV 


OLCTR, DLCTR 




1599 


003632 


016767 


000056 


000054 




MOV 


DLCTR, DLCTR 




1600 


003640 


016767 


000050 


000046 




MOV 


DLCTR, DLCTR 




1601 


003646 


016767 


000042 


000040 




MOV 


DLCTR, DLCTR 




1602 


003654 


016767 


000034 


000032 




MOV 


DLCTR, DLCTR 




1603 


003662 


016767 


000026 


000024 




MOV 


DLCTR, DLCTR 




1604 


003670 


0t6767 


000020 


000016 




MOV 


DLCTR, DLCTR 
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1 60S 


003676 


005367 


000012 






DEC 


DLCTR 


{ DECREMENT 1 MSEC COUNTER 


1 606 


0(0 3702 


001 345 








BNE 


DLYB 


{ BRANCH XF NOT YET 1 MILLISECOND 


1 607 


003704 


005367 


000006 






DEC 


DLCNT 


{ DECREMENT MsECS COUNT (DLCNT) 


1608 


003710 


001 337 








BNE 


DLYA 


j BRANCH IF DLCNf NOT 


1609 


003712 


000002 








RTI 




{ DONE DELAYING, EXIT 


1610 


003714 


000000 






DLCTB: 


OPEN 




;1 MILLISECONDS COUNT 


1611 


0037 16 


000000 






DLCNTl 


OPEN 




{CONTAINS MILLISECONDS COUNT 


1612 










{ ROUTINE TO CALIBRATE DELAY 


ROUTINE USING READER, 


1613 




004136 








TMCONaRTINTB+2 




1614 


003720 


012700 


000006 




RTMCALl 


MOV 


#6,R0 


jtSET UP TO READ 6 CHARS, 


1615 


003724 


012767 


000021 


000204 




MOV 


#17., TMCON 


{ TIME TO READ 6 CHARS TO TMCON, 


1616 


003732 


10401 1 








STRDRV 




{SET READER VECTOR, 


1617 


003734 


004044 








RTMINT 






1618 


003736 


005067 


175300 






CLR 


BRCTR 




1619 


003742 


012777 


000101 


175240 




MOV 


#101,3PRS 


{ ENABLE READER AND INTERRUPTS, 


1620 


003750 


005067 


174022 




RTMCLAI 


CLR 


PSW 




1621 


003754 


016767 


175262 


175260 


RTMCLBl 


MOV 


BRCTR, BRCTR 




1622 


003762 


016767 


175254 


175252 




MOV 


BRCTR, BRCTR 




1623 


003770 


016767 


175246 


175244 




MOV 


BRCTR, BRCTR 




1624 


003776 


016767 


175240 


175236 




MOV 


BRCTR, BRCTR 




1625 


004004 


016767 


175232 


175230 




MOV 


BRCTR, BRCTR 




1626 


004012 


016767 


175224 


175222 




MOV 


BRCTR, BRCTR 




1627 


004020 


016767 


175216 


175214 




MOV 


BRCTR, BRCTR 




1628 


004026 


016767 


175210 


175206 




MOV 


BRCTR, BRCTR 




1629 


004034 


005267 


175202 






INC 


BRCTR 




1630 


004040 


001 345 








BNE 


RTMCLB 


{ BR IF RESULT NOT 0, 


1631 


004042 


104010 








CHALT 




{ BRCTR OVERFLOWED, 


1632 


















1633 


004044 


005777 


1751 40 




PTMINTl 


TST 


9PRS 


{ READER ERROR? 


1634 


004050 


1 00405 








BMI 


RTMERR 


;BR IF YES, 


1635 


004052 


005300 








DEC 


R0 


J READ 6 CHARS? 


1636 


004054 


001420 








BEQ 


RTINTA 


{ BR IF YES, 


1637 


004056 


005277 


175126 






INC 


pPRS 


;NO, ENABLE READER, 


1638 


004062 


000002 








RTI 




{EXIT INTERRUPT, 


1639 


004064 


004767 


176626 




RTMERR t 


JSR 


PC, TSM2 


{ READER ERROR , 


1640 


004070 


012716 


003720 






MOV 


#RTMCAL, (6) 


{GO TRY AGAIN, 


1641 


004074 


000002 








RTI 






1642 


004076 


104004 






PTMERR i 


TYPES 




{PUNCH ERROR, 


1643 


004100 


017456 








SM3 






1644 


004102 


016620 








IM16 






1645 


004104 


177777 








-1 






1646 


004106 


104010 








CHALT 






1647 


0041 10 


012716 


0041 70 






MOV 


SPTMCAL, (6) 


{GO TRY AGAIN, 


1648 


004 114 


VVYJvXJ C 








RTI 






1649 


004116 


005077 


175066 




RTINTAj 


CLR 


9PRS 


; DISABLE READER INTERRUPTS, 


1650 


004122 


005067 


175120 






CLR 


DVQUOT 


I CLEAR QUOTIENT, 


1651 


004126 


016767 


175110 


175110 




MOV 


BRCTR, DVDND 




1652 


004134 


162767 


000000 


175102 


RTINTBI 


SUB 


#0, DVDND 


{DIVIDE DVDND BY 17 OR 100 


1653 


004142 


103403 








BLO 


RTINTC 




1654 


004144 


005267 


175076 






INC 


DVQUOT 


{ + 1 TO QUOTIENT, 


1655 


004150 


000771 








BR 


RTINTB 


; REPEAT SUBTRACTION, 


1656 


004152 


016767 


175070 


175070 


RTINTCl 


MOV 


DVQUOT, MSEC 


jlMSEC CONSTANT T° MSEC , 


1657 


004160 


005067 


173612 






CLR 


PSW 




1658 


004164 


022626 








POPSP2 






1659 


004166 


000207 








RTS 


PC 


{EXIT, 



1660 {ROUTINE TO CALIBRATE DELAY ROUTINE USING PUNCH, 
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1661 


004170 


005000 




1662 


004172 


004767 


001040 


1663 


004176 


012700 


000005 


1664 


004202 


012767 


000144 


1665 


004210 


104012 




1666 


004212 


004234 




1667 


004214 


005067 


175022 


1668 


004220 


005077 


174772 


1669 


004224 


052777 


000100 


1670 


004232 


000646 




1671 


004234 


005777 


174754 


1672 


004240 


100716 




1673 


004242 


005300 




1674 


004244 


001403 




1675 


004246 


005077 


174744 


1676 


004252 


000002 




1677 


004254 


005077 


174734 


1678 


004260 


000720 




1679 








1680 








1681 


004262 


004767 


176542 


1682 


004266 


046700 


000014 


1683 


004272 


001404 




1684 


004274 


010067 


000002 


1685 


004300 


104000 




1686 


004302 


000000 




1687 


004304 


000002 




1688 


004306 


000000 




1689 








1690 




004314 




1691 




004326 




1692 


004310 


012727 


000040 


1693 


004316 


005067 


173454 


1694 


004322 


012727 


001750 


1695 


004330 


005367 


177772 


1696 


004334 


001375 




1697 


004336 


005367 


177752 


1698 


004342 


001367 




1699 
1700 


004344 


000002 




1701 


004346 


004767 


176456 


1702 


004352 


046700 


000010 


1703 


004356 


001773 




1704 


004360 


010067 


000004 


1705 


004364 


000207 




1706 


004366 


000000 




1707 


004370 


000000 




1700 








1709 


004372 


004767 


000314 


1710 


004376 


020067 


174776 


1711 


004402 


001001 




1712 


004404 


000207 




1713 


004406 


010067 


174750 


1714 


004412 


004567 


000436 


1715 


004416 


001362 




1716 


004420 


017655 





PTMCAL : CLR 
JSR 
MOV 
MOV 

STPCHV 
PTMINT 



P0 

PCHSPCH 
*5,R0 

#100,, TMCON 



{ GET PUNCH RUNNING, 

JSET UP TO PUNCH 5 CHAPS, 

J TIME TO PUNCH 5 CHARS TO TMCON, 

{SET PUNCH INTERRUPT VECTOR, 





CLR 


BRCTR 






CLR 


iPPB 


J OUTPUT A 0, 




BIS 


#BIT6, »PPS 


{ ENABLE PUNCH INTERRUPTS 




BP 


PTMCLA 




PTMINTl 


TST 


gPPS 


{PUNCH ERROR? 




BMI 


PTMERR 


{BP IF YES, 




DEC 


R0 


{PUNCHED 5 CHARS? 




BEQ 


PTINTA 


{BR IF YES, 




CLR 


0PPB 


jOUTPUT ANOTHER 0, 




RTI 




{EXIT INTERRUPT, 


PTINTAj 


CLR 


BPPS 


J DISABLE INTERRUPTS, 




BP 


RTINTA+4 





{ SUBROUTINE TO STALL A RANDOM NUMBER OF MILLISECONDS, MAXIMUM STALL 
> DETERMINED BY CONTENTS OF LOC STLMSK, 



STALl JSR %7 , RNGEN 

BIC STLMSK, %0 

BEQ STALB 
MOV %0,STALA 
DELAY 
STALAi OPEN 
STALBl RTI 
STLMSKi OPEN 
»SUB TO DELAY X TIME, 
DLYX0aDLYX+4 
DLYXloDLYXA+4 



DLYXl 


MOV 


•40, »0 




CLR 


PSW 


DLYXAl 


MOV 


#1000, ,81 


DLYXBi 


DEC 


DLYXl 




BNE 


DLYXB 




DEC 


DLYX0 




BNE 


DLYXA 




RTI 




J SUBROUTINE TO 


GENERATE ] 


GPCNTI 


JSR 


%7, RNGEN 




BIC 


RCMSK,%0 




BEQ 


GRCNT 




MOV 


%0,RNCNT 




RTS 


%7 


RCMSKI 


OPEN 




RNCNTI 


OPEN 




f SUBROUTINE TO 


COMPARE Di 


BCHECKj 


JSR 


%7,GTBIN 




CMP 


%0,CRBUF 




BNE 


,+4 




RTS 


%7 




MOV 


%0, ERRT 




JSR 


I5,ACNV4 




ERRT 






ASB 





JGO GET RANDOM NUMBER, 

{# IN R0, APPLY STALL MASK, 

{BRANCH IF RESULT IS 0, 

; DELAY 

{ DELAY COUNT 
{ DONE, EXIT, 
; STALL MASK, 



{SET UP COUNT OF 40, 

I SET DELAY, 
{ DECREMENT DLYXl, 
{ BR IF NOT RESULT, 
{DECREMENT DLYX0, 
J BR IF NOT RESULT, 
{EXIT, 
CHARACTER COUNT (1-77) 
{ GET RANDOM NUMBER 
{ APPLY MASK 

{TRY AGAIN IF RESULT 
{COUNT TO RNCNT 
{EXIT, 

{RANDOM CHARACTER MASK, 
{ RANDOM CHARACTER COUNT, 
D FROM READER AGAINST EXPECTED 
{ GET BIN CHARACTER( IN R0) 
{COMPARE(R0)TO DATA IN CRBUF 
{ BRANCH IF NOT SAMECERROR) , 
{OK, EXIT, 
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1717 


004422 


004567 


000426 






JSR 


%5,ACNV4 




1718 


004426 


001400 








CR6UF 






1719 


004430 


017670 








AWAS 






1720 


004432 


104007 








ERROR1 






1721 


004434 


017632 








EMI 






1722 


004436 


005367 


174754 






DEC 


ERCTR 


f DECREMENT ERROR COUNTER 


1723 


004442 


001002 








BNE 


. + 6 


; BRANCH IF NO THIRD ERROR 


1724 


004444 


004767 


000002 






JSR 


%7,BSYNC 


JRESYNC THE READER, 


1725 


004450 


000207 








RTS 


%7 


;EXIT, 


1726 










SUBROUTINE TO 


SYNC THE READER 


TO A SPECIAL BINApY COUNT PATTERN 


1727 


004452 


004767 


000176 




BSYNCI 


JSR 


%7, INBIN 


J IN ITIALIZE BINARY PATTERN 


1728 


004456 


004767 


176420 






JSR 


%7, BREAD 


j READ CHAR, 


1729 


004462 


004767 


176414 






JSP 


%7, BREAD 


J READ CHAP, 


1730 


004466 


004767 


176410 






JSR 


%7,RPEAD 


•READ CHAR AND STORE AT CHRl 


1731 


004472 


016767 


174702 


174702 




MOV 


CRBUF,CHR1 




1732 


0045s£0 


004767 


176376 






JSP 


%7, BREAD 


JREAD CHAR AND STORE AT CHR2 


1733 




016767 


174670 


174672 




MOV 


CRBUF,CHR2 




1734 


004512 


004767 


176364 






JSP 


%7, BREAD 


; READ CHAR AND STORE AT CHP3 , 


1735 


004516 


016767 


174656 


174662 




MOV 


CRBUF,CHR3 




1736 


004524 


004767 


000012 






JSR 


%7,SYNCA 


fGO SYNC 


1737 


004530 


000750 








BP 


BSYNC 


;NO SYNC, TRY AGAIN, 


1738 


004532 


012767 


000003 


174656 




MOV 


#3,ERCTR 


1739 


004540 


000207 








RTS 


%7 


;SUCCESS,EXIT, 


1740 


004542 


012767 


001000 


000102 


SYNCAl 


MOV 


#5l2,#SYCTRA 


; 51 2 TO SYCTRA, 


1741 


004550 


004767 


000136 




SYNCBi 


JSR 


%7,GT8IN 


;BIN CHAR TO CHRl A, 


1742 


004554 


010067 


174630 






MOV 


%0# ChRI A 




1743 


004560 


004767 


000126 






JSP 


%7,GTBIN 


;BIN CHAR TO CHR2A, 


1744 


004564 


010067 


174622 






MOV 


%0,CHR2A 


1745 


004570 


004767 


0001 16 






JSP 


%7,GTBIN 


jBIN CHAR TO CHR3 A , 


1746 


004574 


010067 


174614 






MOV 


%0, CHR3A 


1747 


004600 


026767 


174576 


174602 




CMP 


CHRl ,CHRlA 


;CHRi AND CHRl A SAME? 


1748 


004606 


001013 








bNE 


SYNCC 


5BR IF NOT, 


1749 


004610 


026767 


174570 


174574 




C M P 


CHr2,CHR2A 


;CHR2 AND CHR2A SAME? 


1750 


004616 


001007 








BNt 


SYNCC 


; BR IF NOT, 


1751 


004620 


026767 


174562 


174566 




CMF 


CHR3.CHR3A 


»CHR3 AND CHR3A SAME? 


1752 


004626 


001003 








BME 


SYNCC 


,*BR IF NOT, 

;SET UP SYNCED EXIT. 


1753 


004630 


062716 


000002 






ADD 


#2,(6) 


1754 


004634 


000207 








RTS 


%7 


,'EXIT. 


1755 


004636 


005367 


000010 




SYNCCJ 


DEC 


SYCTRA 


; TP I ED 512 TI*E5? 


1756 


004642 


001342 








BNE 


SYNCB 


; BR IF NOT, 


1757 


004644 


1 04007 








EPROpt 




; SYNC ERROR MESSAGE. 


1758 


004646 


017747 








EM 3 




1759 


004650 


000207 








RTS 


%7 


;NO SYNC EXIT, 


1760 


004652 


000000 






SYCTRA: 


OPEN 




1761 










; SUBROUTINE TO 


INITIALIZE BINARY COUNT PATTERNS 


1762 


004654 


012767 


177777 


00001 4 


IMBtNj 


MOV 


8-1 , PIND 


;SET ALL VARIABLES 


1763 


004662 


004567 


000 300 






JSR 


%5, BMOVE 


;TO MINUS 1. 


1764 


004666 


004676 








RIND 






1765 


004670 


004677 








RIND-H 






1766 


004672 


00001 3 








1 1 . 






1767 


004674 


000207 








RTS 


%7 


;EX.TT 


1768 


004676 


000000 






RIND! 


OPEN 






1769 


004700 


000000 






PT0 J 


QPEM 






1770 


004702 


000000 






PT1 : 


OPEN 






1771 


004704 


0^0000 






PlNDj 


OPEN 






1772 


004706 


300000 






PT0P5 


OPEN 
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177 3 


004710 


000000 




1774 








1775 


004712 


016767 


177762 


1776 


004720 


005167 


177756 


1777 


004724 


005167 


177746 


1778 


004730 


001002 




1779 


004732 


005267 


177744 


1780 


004736 


042767 


177400 


1781 


004744 


016767 


177732 


1782 


004752 


016700 


177724 


1783 


004756 


000207 




1784 


004760 


016767 


177722 


1785 


004766 


005167 


177716 


1786 


004772 


005167 


177706 


1787 


004776 


001002 




1789 


005000 


005267 


177704 


1789 


005004 


042767 


177400 


1790 


005012 


016767 


177672 


1791 


005020 


016701 


177664 


1 792 


005024 


000207 




1793 








1794 


005026 


012500 




1795 


005030 


012567 


00001 2 


1796 


005034 


0047b7 


000052 


1797 


005040 


0<M567 


0001 22 


1798 


005044 


0^5102 




1799 


005046 


000000 




1800 


005050 


000006 




1801 


005052 


000205 




1802 


005054 


012500 




1803 


005056 


012567 


00C012 


1804 


0«5062 


004767 


000024 


1805 


005066 


004567 


000074 


1 806 


005072 


005104 




1807 
1808 


005074 
005076 


000000 
000004 




1809 


005100 


900205 




1810 


005102 


000000 




1811 


005104 


000000 




1812 


005106 


000000 




1813 


0051 10 


000000 




1814 


005112 


012701 


0051 10 


1815 


0051 16 


012702 


000006 


1816 


005122 


011067 


177762 


1817 


005126 


016703 


177756 


1818 


005132 


042703 


177770 


1819 


005136 


062703 


000060 


1820 


005142 


110341 




1821 


005144 


006067 


177740 


1822 


005150 


006067 


177734 


1823 


005154 


006067 


177730 


1824 


005160 


005302 




1825 


005162 


001361 




1826 


005164 


000207 




1827 








1828 


005166 


012501 





177736 
177726 



177676 
177666 



PT1P! OPEN 
JSPECIAL BINARY 
GTBIN! MOV 

COM 

COM 

BNE 

INC 

BIC 

MOV 

MOV 

RTS 

GTBINP j MOV 
COM 
COM 
bNE 
INC 
BIC 
MOV 
MOV 
RTS 

;OCTAL TO ASCII 



COUNT PATTERN SUBROUTINE, EXITS WITH BIN CHAR IN R0 



ACNV6} 



ACNVB: 



MOV 

MOV 

JSR 

JSR 

AIST 

OPEl 



PTH, PT1 
PT1 
RIND 
. + 6 
PT1 

»177400, PT1 
PT1 , PT0 
PTl ,%0 
%7 

PT0P, PT1P 
PT1P 
PIND 
.♦6 
PT1P 

#177400, PT1P 
PTl P, PT0P 
PT1P,%1 
%7 

CONVERT ROUTINES 



JPREVIOUS B I ^ CHAR TO PTl 



JMASK TO 8 BITS 
;SAVE BIN CHAR IN PT0 
;BIN CHAR TO R0, 
; EXIT, 

^PREVIOUS BIN CHAR TO 



RTS 
MOV 
MOV 
JSR 
JSR 

A1ST+2 
OPEN 
4 

RTS 
OPEN 
OPEN 
OPEN 
OPEN 
MOV 
MOV 
MOV 
MOV 
BIC 
ADD 
MOVB 
ROR 
ROR 
ROR 
DEC 
BNE 
RTS 

^SUBROUTINE TO 

BMQVE J MOV 



ACNV4: 



ACNVCl 



AIST! 



ACNVXi 
ACNV! 



A C N V M ! 



(5) + , 
(5)+, ACNVB 
%7,ACNV 
%5, BMOVE 



%5 

(5)+,%0 
(5)+, ACNVC 
%7, ACNV 
%5, BMOVE 



#A1ST4-6,%1 

#6,%2 

8%0, ACNVX 

ACNVX,%3 

#177770, %3 

#60, %3 

%3,-(l) 

ACNVX 

ACNVX 

ACNVX 

%2 

ACNVM 
%7 

MOVE A VARIABLE 
(5)+,%l 



j MASK TO 8 BITS, 
;SAV£ BIN CHAR In PT0P, 
;BIN CHAR TO Rl, 
?EXIT, 

;COMVERT TO b ASCII, GET OCTAL ADDRESS 

; GET ASCII ADDRESS 

jCOMVERT TO ASCII 

•MOVE 6 CHARS TO ASCII ADDRESS 



IEXIT 

;CONVERT TO 4 ASCII. GET OCTAL ADDRESS 

; GET ASCII ADDRESS 

fCONVERT TO ASCII 

;MOVE 4 CHARS TO ASCII ADDRESS, 



; ADOR TO STORE ASCII TO Rl 
;6 TO R2 

;OCTAL WORD TO ACNVX 

; ISOLATE LEAST SIGNIFICANT OCTAL 
; ADD 60 TO CONVERT TO ASCII 
;STORE ASCII BYTE 
;MOVE NEXT OCTAL DIGIT TO LEAST 
SIGNIFICANT POSITION 

j DONE 6 TIMES? 
JNO. REPEAT, 
;YES. EXIT, 
NUMBER OF BYTES, 
j GET "FROM "ADDRESS 
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1829 


005170 


012502 






MOV 


(5)+,%2 


1 GET"TO"ADDRESS 


1830 


005172 


012503 






MOV 


C5)+,%3 


j GET COUNT 


1831 


005174 


112122 




BMOVAI 


MOVB 


(1) + , (2)* 


;MOVE BYTE 


1832 


005176 


005303 






DEC 


%3 


; DECREMENT COUNT 


1833 


005200 


001375 






BWE 


BMOVA 


J BRANCH IF NOT DONE, 


1834 


005202 


000205 






RTS 


%5 


I DONE EXIT 


1835 








^SUBROUTINE TO 


CHECK FOR PUNCH 


READY, 


1836 


005204 


005777 


174004 


CPRDYf 


TST 


UPPS 


; TEST FOR ERROR BIT, 


1837 


005210 


100404 






BMI 


CPRDYA 


I BRANCH IF ERROR BIT SET. 


1838 


005212 


105777 


173776 




TSTB 


SPPS 


; TEST FOR READY BIT, 


1839 


005216 


100001 






BPL 


CPRDYA 


; BRANCH IF READY NOT SET, 


1840 


005220 


000207 






RTS 


%7 


;OK, EXIT, 


1841 


005222 


104004 




CPRDYAt 


TYPES 




; TYPE NOT READY MESSAGE, 


1842 


005224 


017456 






SM3 






1843 


005226 


016620 






IM16 






1844 


005230 


177777 






-1 






1845 


005232 


104010 






CHALT 






1846 


005234 


000763 






BR 


CPPDY 




1847 








isubroutine to 


PUNCH ON H, S, 


PUNCH CHARACTER IN REG 0, 


1848 


005236 


004767 


177742 


hspchj 


JSR 


%7 , CPPDY 


;GO CHECK FOR PUnCh READY , 


1849 


005242 


010077 


173750 




MOV 


%0,PPPB 


j LOAD PUNCH BUFFER, 


1850 


005246 


105777 


173742 




TSTB 


8PPS 


;wAIT FOR DONE, 


1851 


005252 


100375 






BPL 


.-4 




1852 


005254 


000207 






RTS 


%7 


J DONE , EXIT. 


1853 








;BINARY 


TO DECIMAL ASCII CONVERT SUBROUTINE. 


1854 


005256 


012700 


015256 


BDCNV! 


MOV 


#OECVAL,%0 


I SET UP ADDR TO STORE DECIMAL ASCII IN 


1855 


005262 


013501 






MOV 


9(5)+#%l 


j BINARY VALUE TO Rl , 


1856 


005264 


012702 


005364 




MOV 


#ADTENP»%2 


; ADDR OF TEN POWER STRING TO R2, 


1857 


005270 


012767 


000005 000 


060 


MOV 


#5,CNVCTR 


;SET Up FOR 5 POWER CONVERSIONS, 


1858 


005276 


012267 


000060 


BDCNVAl 


MOV 


(2)+,TENpWR 


;MOVE POWER OF TEN VALUE TO TENPWR, 


1859 


005302 


004767 


000010 




JSR 


%7,SUBTEN 


; PERFORM CONVERSION 


1860 


005306 


005367 


000044 




DEC 


CNVCTR 


JDONE 5 CONVERSIONS? 


1861 


005312 


001371 






BNE 


BDCNVA 


•BRANCH IF NOT YET 5. 


1862 


005314 


000205 






RTS 


%5 


;YES, EXIT, 


1863 


005316 


005067 


000036 


SUBTENi 


CLR 


DIGIT 


j CLEAR DIGIT 


1864 


005322 


166701 


000034 


SUBTNAt 


SUB 


TENPWR, %1 


; SUBTRACT TEN POWER FROM BINARY VALUE, 


1865 


005326 


103403 






BCS 


SUBTNB 


; BRANCH IF UNSUCCESSFUL SUBTRACTION. 


1866 


005330 


005267 


000024 




INC 


DIGIT 




1867 


005334 


0*0772 






BR 


SUBTNA 




1868 


005336 


066701 


000020 


SUBTNBS 


ADD 


TENPWR, %1 


; RESTORE SUBTRACTED VALUE, 


1869 


005342 


062767 


000060 000 


010 


ADD 


#60, DIGIT 


^CONVERT (DIGIT) TO ASCII 


1870 


005350 


U6720 


000004 




MOVB 


DIGIT, (0)+ 


;MOVE ASCII CHAR TO DEC VAL FIELD, 


1871 


005354 


000207 






RTS 


%7 


;EXIT. 


1872 


005356 


000000 




CNVCTP! 


OPEN 






1873 


005360 


000000 




DIGIT! 


OPEN 






1874 


005362 


000000 




TENPWR ! 


OPEN 






1875 


005364 


023420 




ADTENPl 


10000, 






1876 


005366 


001750 






1000, 






1877 


005370 


000144 






100. 






1878 


005372 


000012 






If. 






1879 


005374 


000001 






1 
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1881 








1882 








1883 








1884 








1885 


005376 


012767 


005432 


1886 


005404 


005767 


174430 


1887 


005410 


001402 




1888 


005412 


000167 


174272 


1889 


005416 


104003 




1890 


005420 


015540 




1891 


005422 


004767 


007614 


1892 


005426 


000167 


174256 


1893 








1894 


005432 


000000 




1895 


005434 


005462 




1896 


005436 


001750 




1897 


005440 


005450 




1898 








1899 








1900 


005442 


012767 


005456 


1901 


005450 


005777 


173534 


1902 


005454 


104013 




1903 


005456 


104006 




1904 


005460 


104013 




1905 








1906 


005462 


000001 




1907 


005464 


005512 




1908 


005466 


001750 




1909 


005470 


005500 




1910 








1911 








1912 


005472 


012767 


005506 


1913 


005500 


005777 


173506 


1914 


005504 


104013 




1915 


005506 


104006 




1916 


005510 


104013 




1917 








1918 


005512 


100002 




1919 


005514 


005562 




1920 


005516 


001750 




1921 


005520 


005546 




1922 








1923 








1924 


005522 


004567 


175026 


1925 


005526 


000033 




1926 


005530 


005546 




1927 








1928 


005532 


104004 




1929 


005534 


015722 




1930 


005536 


015756 




1931 


005540 


017025 




1932 


005542 


177777 




1933 


005544 


000000 




1934 


005546 


022777 


100000 


1935 


005554 


001401 




1936 


005556 


104006 





jPRGt? 
PRG0S 



, SBTTL PRG0 - READER LOGIC TESTS 
READER LOGIC TESTS 



MOV 
TS1 
BEO 
JMP 
TYPE 
IMG 
JSR 
JMp 



$ AT0 , KSTAPT 

XORFLG 

IS 

GETRDY 



; ADDR OF 1ST ROUTINE TO KSTART, 



; T YPE TITLE 



%7,SWTL 
GETRDY 



;GO GET STARTED, 

AT0J ; TEST » 

ATI ; N E X T TEST ADDR 

1000, ;I COUNT 

AT0A ; SCOPE ENTRY 

; ##»##**##*#»#####♦**#**♦##*#*♦#♦#####*♦♦*####*#####*»#♦**#*##*»*♦»***»** 
I TEST ABILITY TO REFERENCE THE READER STATUS ^ORD 

MOV # AT0E, MACHER ; SET UP MACHINE ERROR TRAP, 

AT0AJ TST APRS 1 REFERENCE REAOER STATUS WORD, 

SCOPE 

AT0E| ERROR j ERROR , TRAPPED WHEN REFERENCING READER 

SCOPE ; STATUS WORD (PRS), 

ATI I 1 ; TEST * 

AT2 ; NEXT TEST 

1000, Jl COUNT 

ATI A ;SCOPE ENTRY 



f TEST 


ABILITY TO 




MOV i 


ATI At 


TST 1 




SCOPE 


ATlEt 


ERROR 




SCOPE 


AT2I 


2+MANUAL 




AT3 




1000, 




AT2A 



# ATI E, MACHER 
HPRB 



;SET UP MACHINE ERROR TRAP, 
; REFERENCE READER BUFFER 



; ERROR , TRAPPED WHEN REFERENCING 
; READER BUFFER, (PRB) 



; TEST 

; NEXT TEST 
;I COUNT 
JSCOPE ENTRY, 

1 TEST THAT READER POWER OFF SETS ERROR BIT (BIT 15) IN READER STATUS WORD, 



JSR 
33 

AT2A 

TYPES 
IM1 
IM2 
IM23 
• 1 

HALT 
CMP 
BEQ 
ERROR 



%5,PCSIM 



•BIT15,»PRS 

* + 4 



;PC11 SIMULATOR FOR XOR TESTER 

; ENTER IF XOR TESTER 
;GO TO TYPES IF NOT TESTER 
; TYPE TURN READER POWER OFF, 



;WAIT FOR USER 

J TEST FOR ERROR BIT ONLY, 

j BRANCH IF ERROR BIT ONLY SET, 

,'ERROP.WITH READER POWER OFF ONLY THE ERROR 
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1937 


005560 


10401 3 






SCOPE 


JBIT SHOULD HAVE BEEN SET, 


1938 












^EXAMINE READER STATUS WORD MANUALLY, 


1939 










1940 


005562 


1 00003 




AT3 S 


3+MANUAL 


j TEST # 


1941 


005564 


005630 






AT4 


; NEXT TEST 


1942 


005566 


001750 






1000, 


; I COUNT 


1943 


005570 


005616 






AT3A 


jSCOPE ENTRY 


1944 










1 945 








J TEST 


THAT READER OFF-LINE SETS ERROR BIT (BIT 15) IN READER STATUS WORD. 


1946 


005572 


004567 


174756 




JSR %5,PCSIM 




1947 


005576 


000033 






33 




1948 


005600 


005616 






AT3A 




1949 


005602 


104004 






TYPES 


j TYPE t "TURN READER POWER ON, 


1950 


005604 


015722 






IM1 


j OFF-LINE, NO TApE 


1951 


005606 


01601 4 






IM3 




1952 


005610 


017025 






IM23 




1953 


005612 


177777 






-1 




1954 


005614 


000000 






HALT 


;WAIT FOR USER, 


1955 


005616 


005777 


173366 


AT3AJ 


TST 3PRS 


JCHKCK BIT 15 OF PRS 


195b 


005622 


1 00401 






BMI ,+4 


j BRANCH IF BIT 15 SET, 


1957 


005624 


104006 






ERROR 


j ERROR , ERROR BITCBIT15) NOT SET BY 


1958 


005626 


10401 3 






SCOPE 


; READER BEING OFF-LINE, 


1959 










1960 


005630 


100004 




AT4I 


4+MANUAL 


J TEST # 


1961 


005632 


005704 






AT5 


; NEXT WORD 


1962 


005634 


001750 






1^00. 


;l COUNT 


1963 


005636 


005672 






AT 4 A 


j SCOPE ENTRY 


1964 








j ## ##*########*####*#*#######«###*###•##########»## »#««##»»##»##*###«««## 


1965 








1 TEST 


THAT READER OUT OF TAPE 


SETS ERROR BITCBIT 15) IN READER STATUS WORD , 


1966 


005640 


004567 


174710 




JSR %5,PCSIM 




1967 


005644 


000033 






33 




1968 


005646 


005664 






IS 




1969 


005650 


104004 






TYPES 


; TYPE: SET READER AS FOLLOWSl POWER ON ON-LINE, 


1970 


005652 


015722 






IM1 


jNO TAPE, 


1971 


005654 


016051 






IM4 




1972 


005656 


017025 






IM23 




1 97 3 


005660 


177777 






-I 




1974 


H05662 


000000 






HALT 


jWAIT FOR USER , 


1975 


005664 


005277 


173320 


IS: 


mz oPRs 


; ENABLE READER 


1976 


005670 


1 04400 






DELAYX 


;WAIT A WHILE, 


197 7 


005672 


005777 


17331 2 


AT4 A ! 


TST OPRS 


; CHECK BIT 15 OF ; PRS 


1978 


005676 


100401 






BMI ,+4 


fBRANCH IF BIT 15 SET, 

jERPQP, ERROR BIT (BIT 15) NOT SET BY 


1979 


005700 


1 04006 






EPPOF 


1980 


005702 


10401 3 






SCOPE 


JREADER out of tape. 


1981 














1982 


005704 


1 00005 




AT5 : 


5+MANUAL 


? TEST # 


1983 


005706 


005760 






AT6 


j N E X T TEST 


1984 


005710 


001750 






1000. 


J I COUNT 


1985 


005712 


005746 






ATS A 


SSCOPE ENTRY 


1986 














1987 








; TEST 


THAT ERROR HIT (BIT 15) 


OF READER STATUS WORD (PPS) IS NOT SET 


1988 








j WITH 


READER POWER ON, READER 


ON-LINE AND WITH TAPE LOADED IN READER 


1989 


005714 


004567 


174634 




JSR %5,PCSIM 




1990 


005720 


000433 






433 


; TURN OFF RDR ERrOr ON XOR TESTER 


1991 


005722 


005740 






IS 




1992 


005724 


104004 






TYPES 


f TYPF, , SET READER AS FOLLOWS} POWER ON, ON-LINE. 
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LOGIC TESTS 




1993 


005726 


015722 






1*1 


; TAPE IN READER, 


1994 


005730 


016271 






IMS 




1995 


005732 


017025 






1*2 3 




1996 


005734 


177777 






-1 




1997 


005736 


000000 






HALT 


;WAIT FOR USER 


1998 


005740 


005277 


173244 




IS: INC PPRS 


: ENABLE READER, 


1999 


005744 


104400 






DELAYX 


j WAIT A WHILE, 


2000 


005746 


005777 


173236 




ATS A : TST BPRS 


JCHECK BIT 15 OF PRS 


2001 


005752 


100001 






BPL ,+4 


jBP IF BIT 15 NOf SET, 


2002 


005754 


104006 






ERROR 


jERROP, ERROR BIT (BIT 15) SET WITH NO 


2003 


005756 


104013 






SCOPE 


{ERROR CONDITION PRESENT, 


2004 










; »*»»*«*»«***««»*»#»*«»*«»**«»«*«***«**»#«»*•»»»«•»•«»«»«##«»»««»«»»«*»«» 


2005 


005760 


000006 






AT6 : 6 


j TEST * 


2006 


005762 


006042 






AT7 


J NEXT TEST 


2007 


005764 


001750 






1 000, 


;I COUNT 


2008 


005766 


005776 






AT6 A 


j SCOPE ENTRY 


2009 










j 


2010 










J TEST ABILITY TO SET AND CLEAR 


THE ID BIT (INTERRUPT ENABLE (BIT 6)) 


2011 










;IN READER STATUS WORD 




2012 


005770 


012767 


000340 


172000 


MOV *PRTY7,PSW 


jSET PRIORITY 7, 


2013 


005776 


052777 


000100 


173204 


AT6 A : BIS #BIT6,@PRS 


{SET ID BIT (BIT 6) IN READER PRS 


2014 


006004 


032777 


000100 


173176 


BIT *RIT6,»PPS 


;CHECK ID BIT IN PRS 


2015 


006012 


001002 






BNE AT6B 


? ID BIT SET? 


2016 


006014 


104006 






ATbEl: EPPOR 


jNQ, ERROR, FAILED TO SET ID BIT (BIT 6) 


2017 


006016 


10401 3 






SCOPE 


JIN PRS, 


2018 


006020 


042777 


000100 


173162 


AT6B : BIC #BIT6,ePRS 


jCLEAP ID BIT IN PRS, 


2019 


006026 


032777 


000100 


173154 


BIT #BIT6,PPRS 


y CHECK ID BIT IN PRS 


2020 


006034 


001401 






BEQ ,*4 


J BR IF BIT NOT SET, 


2021 


006036 


104006 






ERROR 


jERROP, ID BIT IN PRS FAILED TO CLEAR, 


2022 


006040 


104013 






SCOPE 




2023 










;#»##*#*#*###****»## #»«»#**«*#######««#«»«»*»#»»««»»*»»««»»##»«**#*«##*«* 


2024 


006042 


000007 






AT7 : 7 


J TEST » 


2025 


006044 


006104 






AT10 


j NEXT TEST 


2026 


00604b 


000144 






100, 


Jl COUNT 


2027 


006050 


006060 






AT7A 


j SCOPE ENTRY 


2028 










; *«*«««**«***»#»#»««#»«*»«»*#*«»«*««»«*•««»»»»•*»•#»«»*•«««»»«««#««««#«#« 


2029 










J TEST ABILITY TO CLEAR ID BIT 


(BIT 6) WITH RESET INSTRUCTION 


2030 


006052 


012767 


000340 


171716 


MOV #PRTY7,PSW 


J SET PRIORITY 7 


2031 


006060 


052777 


000100 


173122 


AT7A! BIS #B1T6,«PRS 


JSET ID BIT IN PRS 


2032 


006066 


104002 






SPESET 


J RESET 


2033 


006070 


032777 


000100 


173112 


BIT #BIT6,apRS 


J TEST ID BIT 


2034 


006076 


001401 






BEQ ,+4 


J BR IF IE BIT IS NOT SET, 


2035 


006100 


104006 






ERROR 


JERROP, RESET INSTRUCTION FAILED TO 


2036 


006102 


104013 






SCOPE 


jCLEAR ID BIT IN READER PRS, 


2037 












2038 


006104 


000010 






AT10I 10 


J TEST t 


2039 


006106 


006140 






ATU 


j NEXT TEST 


2040 


006110 


000144 






100. 


jl COUNT 


2041 


0061 12 


006114 






AT10A 


j SCOPE ENTRY 


2042 












2043 










; TEST THAT DONE BIT SETS SOMETIME AFTER READER ENABLE, 


2044 


006114 


004767 


174522 




AT10AI JSR %7 , ARRDY 


jCHECK FOR READER READY 


2045 


006120 


005277 


173064 




INC BPRS 


j ENABLE READER 


2046 


006124 


104 400 






DELAYX 


jWAIT, 
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2047 


006 126 


105777 


1 7 3056 




TSTB 9PRS 


1 TEST FOR DONE (BIT 7) 


2048 


006 132 


100401 






BM1 ,+4 


> BRANCH IF DONE BIT WAS SET,, 


2049 


0061 34 


104006 




AT10EI 


ERROR 


; ERROR, SOMETIME AFTER READER 


2050 


0061 36 


104013 






SCOPE 


f ENABLE/ DONE BIT WAS NOT SET, 


2051 










2052 


006140 


00001 1 




ATI 1 1 


11 


1 TEST # 


2053 


0061 42 


0061 74 






AT12 


} NEXT TEST 


2054 


006144 


001750 






1000, 


?I COUNT 


2055 


006146 


006162 






ATI 1 A 


; SCOPE ENTRY 


2056 










2057 








J TEST 


ABILITY TO READ DONE BIT 


(BIT 7 OF PRS) RELIABLY 


2058 


006150 


004767 


174466 




JSR %7, ARRDY 


JCHECK FOR READER READY, 


2059 


006154 


005277 


173030 




INC PPR5 


; ENABLE READER 


2060 


006160 


104400 






DELAYX 


;WAIT, 


2061 


006162 


105777 


173022 


ATI 1 A: 


TSTB 8PRS 


; TEST DONE BIT (BIT 7 OF PRS) 


2062 


006166 


100401 






BMI ,+4 


J BR IF DONE BIT SET, 


2063 


006170 


104006 






ERROR 


j ERROR , DONE BIT NOT SET, OR FAILED 


2064 


006172 


104013 






SCOPE 


;TO READ IT, 


2065 








j ####*#######**#######***##*#########*♦#####♦###########*♦#♦####♦####♦### 


2066 


006174 


000012 




AT12I 


12 


? TEST » 


2067 


006176 


006246 






AT13 


J NEXT TEST 


2068 


006200 


000144 






100, 


? I COUNT 


2069 


006202 


006204 






ATI 2 A 


JSCOPE ENTRY, 


2070 








; *##*#####•###♦#################»############*########♦♦####♦#♦##♦♦####♦# 


2071 








1 TEST 


THAT RESET COMMAND CLEARS 


DONE BIT (BIT 7 OF PRS) 


2072 


006204 


004767 


174432 


AT12AJ 


JSP %7,ARRDY 


;CHECK FOR READER READY 


2073 


006210 


005277 


172774 




INC fapRS 


; ENABLE READER 


2074 


006214 


104400 






DELAYX 


J WAIT, 


2075 


006216 


105777 


172766 




TSTB OPRS 


J TEST FOR DONE BIT 


2076 


006222 


100005 






BPL AT12E1 


; BRANCH IF DONE BIT NOT SET 


2077 


006224 


000005 






RESET 


; RESET 


2078 


006226 


105777 


172756 




TSTB (?PRS 


J TEST DONE BIT 


2079 


006232 


100403 






BMI AT12E2 


; BRANCH IF DONE BIT STILL SET, 


2080 


006234 


104013 






SCOPE 




2081 


006236 


104006 




AT12EH ERROR 


; ERROR 1, DONE BIT NOT SET, 


2082 


006240 


104013 






SCOPE 




2083 


006242 


104006 




AT12E21 ERROR 


; ERROR 2. DONE BIT NOT RESET BY 


2084 


006244 


104013 






SCOPE 


;RESET INSTRUCTION, 


2085 








>♦**** 




2086 


006246 


000013 




AT13! 


13 


?TEST8 


2087 


006250 


006314 






AT14 


;NfcXT TEST 


2088 


006252 


0001 44 






100. 


fl COUNT 


2089 


006254 


006256 






ATI 3 A 


;SCOPE ENTRY 


2090 














2091 








j TEST 


THAT DONE BlT (6IT7 OF PRS) IS CLEARED WHEN ENABLING THE READER, 


2092 


006256 


104002 




AT13AJ 


SRESET 


; RESET 


2093 


006260 


004767 


174356 




JSR %7 , ARRDY 


JCHECK FOR READER READY 
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2094 
2095 
2096 
2097 
2098 
2099 
2100 
2101 
2102 
2103 
2104 
2105 
2106 
2107 
2108 
2109 
2110 
2111 
2112 
2113 
2114 
2115 
2116 
2117 
2118 
2119 
2120 
2121 
2122 
2123 
2124 
2125 
2126 
2127 
2128 
2129 
2130 
2131 
2132 
2133 
2134 
2135 
2136 
2137 
2138 
2139 
2140 
2141 
2142 
2143 
2144 
2145 
2146 
2147 
2148 
2149 



006264 


005277 


172720 


INC 


PPRS 


;£NA8LE READER 


006270 


105777 


172714 


TSTB 


ePRS 


; TEST FOR DONE BIT 


006274 


100375 




BPL 


.-4 


; BRANCH IF DONE BIT NOT SET 


006276 


005277 


172706 


INC 


I PRS 


; ENABLE READER AGAIN 


006102 


105777 


172702 


TSTB 


PPRS 


; TEST DONE BIT AGAIN 


006306 


100001 




BPL 


.+4 


; BRANCH IF DONE BIT IS RESET 


006310 


104006 




ERROR 




; READER ENABLE DID NOT CLEAR DONE BIT 


006312 


104013 




SCOPE 






006314 


000014 




AT14I 14 




; TEST * 


006316 


006376 




AT15 




; NEXT TEST 


006320 


000144 




100, 




jICOUNT 


006322 


006324 




ATI 4 A 




;SCOPE ENTRY 








; 








j TEST THAT DONE 


BIT IS CLEARED 


BY REFERENCING READER BUFFER (PRB) 


006324 


004767 


174312 


AT14AI JSR 


%7, ARRDY 


JCHECK FOR READER READY, 


006330 


005277 


172654 


INC 


PPPS 


; ENABLE READER 


006334 


105777 


172650 


TSTB 


0PRS 


; TEST FOR DONE BIT 


006340 


100375 




BPL 


.-4 


; BRANCH IF DONE BIT NOT SET, 


006342 


005777 


172644 


TST 


<<>PRB 


j REFERENCE READER BUFFER (PRB) 


006346 


105777 


172636 


TSTB 


0PRS 


j TEST FUR DONE BIT 


006352 


100001 




BPL 


. + 4 


; BR IF DONE BIT IS NOT SET, 


006354 


104006 




ERROR 




; ERROR 1, DONE BIT WAS NOT CLEARED 


006356 


004567 


174172 


JSR 


%5,PCSIM 


;GO TO PCU XOR SIMULATOR 


006362 


000433 




XCTJ 433 




jXOP COMM. 


006364 


006366 




ATI 4C 




; RETURN ARGUMENT 


006366 


062767 


001000 


177766 AT14CJ ADD 


#1000#XCT 




006374 


104013 




SCOPE 




; BY REFERENCING READER BUFFER, 










006376 


000015 




AT15I 15 




j TEST # 


006400 


006446 




AT16 




I NEXT TEST 


006402 


000144 




100, 




Jl COUNT 


006404 


006406 




AT15A 




j SCOPE ENTRY 



I TEST THAT ENABLING READER (BIT OF PRS) SETS THE BUSY BIT (BIT 11 OF PRS) 



006406 


104002 




AT15A! 


SRESET 






006410 


004767 


174114 




JSR 


%7 , ARDER 


;ChECK THAT NO READER ERROR EXISTS, 


006414 


005277 


172570 




INC 


APRS 




006420 


105777 


172564 




TSTB 


0PRS 




006424 


100375 






BPL 


.-4 




006426 


005277 


172556 




INC 


ePRS 


; ENABLE READER 


006432 
006440 


032777 
001001 


004000 


172550 


BIT 
BNE 


#BIT1 1 , 9PRS 
. + 4 


f TEST FOR BUSY BIT 

> BRANCH IF BUSY BIT SET 


006442 


104006 




ATI 5E J 


ERROR 




j ERROR , READER ENABLE FAILED TO SET 
jBUSY BIT, OR UNABLE TO READ BUSY BIT 


006444 


104013 






SCOPE 












} ##♦####♦###########♦#*#####♦##*#♦#»########*########♦##*#########«##♦»*# 


006446 


000016 




AT16! 


16 




j TEST « 


006450 


006530 






AT17 




i NEXT TEST 


006452 


000144 






100, 




j I COUNT 


006454 


006456 






AT16A 




JSCOPE ENTRY 








7 ####♦#♦###♦#########*##»#####♦#######*♦#########♦#########♦##*##♦#*♦*### 








J TEST 


ABILITY 


TO READ BUSY BIT 


(BIT 11 OF PRS) RELIABLY 


006456 


104002 




AT16AI 


SRESET 






006460 


004767 


174044 




JSR 


%7, ARDER 


> CHECK THAT NO READER ERROR EXISTS, 


006464 


012700 


000012 




MOV 


«10,,%0 


;SET UP COUNTER TO 10, 
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2150 


006470 


00527 7 


1 72514 






INC 


APRS 


; ENABLE READER 


2151 


006474 


105777 


172510 






TSTB 


PPRS 


;WAIT FOR DONE BIT 


2152 


006500 


100375 








BPL 


,«4 




2153 


006502 


005277 


172502 






INC 


SPRS 


; ENABLE READER 


2154 


006506 


032777 


004000 


172474 


AT16BJ 


BIT 


#BITlt,apR5 


J TEST BUSY BIT 


2155 


006514 


001403 








BEG 


AT16E 


J BRANCH IF BIT NOT SET 


2156 


006516 


005300 








DEC 


%0 


} DECREMENT COUNTER 


2157 


006520 


001372 








BNE 


ATI 68 


; REPEAT CHECK OF BUSY BIT IF NOT 


2150 


006522 


104013 








SCOPE 






2159 


006524 


104006 






AT16EJ 


ERROR 




;ERRUP, BUSY BIT NOT SET, OR FAILED 


2160 


006526 


104013 








SCOPE 




;TO READ BUSY BIT 


2161 












2162 


006530 


000017 






ATI 7 I 


17 




j TEST » 


2163 


006532 


006630 








AT20 




; NEXT TEST 


2164 


006534 


000144 








100, 




jl COUNT 


2165 


0065?* 


006540 








AT17A 




jSCOPE ENTRY 


2166 










1 


2167 










i TEST 


ABILITY 


TO HEAD READER 


BUFFER RELIABLY, 


2168 


006540 


012700 


000144 




ATj7A{ 


MOV 


#100,, %0 


jSET COUNT TO 100 IN R0 


2169- 


006544 


004767 


174112 






JSR 


%7, AREAD 


j GET CHARACTER 


2170 


006550 


017767 


172436 


172624 




MOV 


0PRB#CHR1 


;CCPRB) TO CHP1 


2171 


006556 


017767 


172430 


172620 


AT17BS 


MOV 


g>PPB,CHR2 


;C(PRB) TO CHR2 


2172 


006564 


026767 


172612 


172612 




CMP 


CHR1,CHR2 


;COMpARE CHRl AND CHR2 , 


2173 


006572 


001003 








8ME 


AT17E 


; BRANCH IF Rl AND R2 DON'T MATCH 


2174 


006574 


005300 








DEC 


%0 




2175 


006576 


001367 








bNE 


AT17B 




2176 


006600 


104013 








SCOPE 






2177 


006602 


004567 


176246 




AT17ES 


JSP 


%5, ACNV4 


JCORRECT 1ST READ DATA TO ASCII 


2178 


006606 


001402 








CHPl 






2179 


006610 


017727 








ORGRD 






2180 


006612 


004567 


176236 






JSR 


%5, ACNV4 




2181 


006616 


001 404 








CHP2 






2182 


006620 


017742 








5UBRD 






2183 


006622 


1 04007 








EPRORl 




JERROR, REREAD OF PRB DID NOT MATCH 


2184 


006624 


017675 








EM2 




; INITIAL DATA READ FROM PRB. 


2185 


006626 


104013 








SCOPE 






2186 


















2187 


006630 


000020 






AT20! 


20 




j TEST « 


2188 


006632 


006744 








AT21 




; NEXT TEST 


2189 


006634 


000020 








20 




;I COUNT 


2190 


006636 


006650 








AT20A 




JSCOPE ENTRY 


2191 










>**»** 








2192 


006640 


1 05277 


172344 






INCB 


9PPS 




2193 


006644 


104000 








DELAY 






2194 


006646 


000001 








1 






2195 


006650 


005767 


173164 




AT20A: 


TST 


XOPFLG 


; THE INSTRUCTIONS WITHIN THIS TEST 


2196 


006654 


100031 








BPL 


A T 2 X 


; ARE USED WITH XOR TESTER ONLY 


2197 


006656 


013746 


000004 






MOV 


P»4, -(%6) 


;EPRORS WILL BE INDICATED ON XOR TESTER ONL ¥ 


2198 


006662 


012737 


006742 


000004 




MOV 


#XTP, (S#4 




2199 


006670 


012737 


000033 


177060 


AT20B ! 


MOV 


#33, »n 177060 




224?0 


006676 


005777 


172306 






TST 


0PRS 




2201 


006702 


104000 








DELAY 






2202 


006704 


000010 








1 






2203 


















2204 


















2205 


006706 


005777 


172276 






TST 


QPPS 
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000433 
172264 



DZPCAE 


SRC 


PRG0 - 


2206 


006712 


012737 


2207 


006720 


005777 


2209 


006724 


1 04000 


2209 


006726 


000010 


2210 


006730 


005777 


2211 


006734 


012637 


2212 


006740 


104013 


221 3 


006742 


000002 


2214 






2215 


006744 


000021 


2216 


006746 


007014 


2217 


006750 


000144 


2218 


006752 


006760 


2219 






2220 






2221 






2222 


006754 


104011 


2223 


006756 


007012 


2224 


006760 


012767 


2225 


006766 


042777 


2226 


006774 


004767 


2227 


007000 


052777 


2228 


007006 


000240 


2229 


007010 


104006 


2230 


007012 


104013 


2231 






2232 


007014 


000022 


2233 


007016 


007070 


2234 


007020 


000144 


2235 


007022 


007030 


2236 






2237 






2238 






2239 


007024 


104011 


2240 


007026 


007064 


2241 


007030 


016767 


2242 


007036 


005077 


2243 


007042 


004767 


2244 


007046 


052777 


2245 


007054 


000240 


2246 


007056 


005077 


2247 


007062 


104013 


2248 


007064 


104006 


2249 






2250 






2251 


007066 


104013 


2252 






2253 


007070 


000023 


2254 


007072 


007146 


2255 


007074 


0001 44 


2256 


007076 


007104 


2257 






2258 






2259 






2260 


007100 


104011 


2261 


007102 


007144 



172254 

000004 
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#433,O#177060 

PPRS 



PPRS 

(%6) + ,<a#4 



; TEST ft 
; NEXT TEST 
;I COUNT 
{SCOPE ENTRY 

* TEST THAT READER IS ABLE TO INTERRUPT, IF INTERRUPT IS SERVICED, IT WILL 
J HAVE OCCURRED AT CORRECT VECTOR, 

JSET UP READER INTERRUPT VECTOR 





MOV 




TST 




DELAY 




10 




TST 




MOV 


AT20X! 


SCOPE 


XTP! 


RT1 


AT21 t 


21 




AT22 




100, 




AT21A 



000000 
000100 

173662 

000100 



171010 
172214 



172202 





STRDRV 




AT21B 


AT21A! 


MOV 




BIC 




JSR 




BIS 




NOP 


AT21EI 


ERROR 


AT21B} 


SCOPE 


AT22! 


22 




AT23 




100, 




AT22A 



#PRTY0,PSW 
#BIT6,(?PRS 
%7, AREAD 
#BIT6,9PRS 



jSET PROCESSOR PRIORITY TO 
; DISABLE READER INTERRUPT, 
;GO READ CHARACTER, 
j ENABLE READER INTERRUPT, 
JNO OP 

; ERROR , READER FAILED TO INTERRUPT, 



? TEST # 
} NEXT TEST 
;I COUNT 
?SCOPE ENTRY 



t TEST THAT READER DOES NOT INTERRUPT WITH PROCESSOR AT SAME PRIORITY 
; LEVEL AS READER, 



172166 
172146 
173614 
000100 172134 



170740 AT22AJ 



STRDRV 

AT22E 

MOV 

CLR 

JSP 

BIS 

NOP 

CLR 

SCOPE 

ERROR 



SCOPE 

23 
AT24 
100, 
AT23A 



RDRLVL,PSW 
@PRS 

%7, AREAD 
#BIT6,9PRS 

9PR5 



?SET UP READER INTERRUPT VECTOR 

;SET PROCESSOR PRIORITY SAME AS READER PRIORITY, 

; DISABLE READER INTERRUPT, 

;GO READ A CHARACTER, 

J ENABLE READER INTERRUPT, 

;OK IF NO INTERRUPT OCCURS, 

f DISABLE READER INTERRUPT, 

JERPOR, READER ERRONEOUSLY INTERRUPTED 
,'WITH PROCESSOR AT SAME PRIORITY LEVEL AS 
J THE READER, OR THE READER IS AT HIGHER 
^PRIORITY LEVEL THAN SPECIFIED AT RDRLVL, 



j TEST * 
; NEXT TEST 
fl COUNT 
JSCOPE ENTRY 



************ 



> TEST THAT READER INTERRUPTS WITH PROCESSOR AT PRlORlTY*i*LEVEL*LOWER* 
; THAN READER'S 

STRDRV ;SET UP READER INTERRUPT VECTOR 

AT23B 
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2262 


aa7 t a * 

vv n»i 








AT23AI 


MOV 


RDRLVL,PSW 


JSET PROCESSOR PRIORITY ONE LEVEL LOWER 


2263 


007 112 


162767 


000040 


1 70656 




SUB 


I40.PSW 


; THAN READER PRIORITY 


2264 


007 120 


042777 


V V V AV%} 


1 72062 




BIC 


#BIT6,@PRS 


; DISABLE READER INTERRUPT 


2265 


007 126 


004767 


173530 






JSR 


%7 , AREAD 


;GO READ A CHARACTER, 


2266 


007 132 


052777 


000100 


172050 




BIS 


# B I T6 » 9PRS 


j ENABLE READER INTERRUPT 


2267 


007 1 40 


000240 








NOP 




;NOP 


2268 


007 142 


1 04006 






AT23EI 


ERROR 




; READER FAILED TO INTERRUPT WITH 


2269 
















1 PROCESSOR PRIORITY ONE LEVEL LOWER THAN 


2270 
















t READER , THEREFORE, READER PRIORITY MUST BE 


2271 


007144 


104013 






AT23BI 


SCOPE 




;LOWEP THAN SPECIFIED AT RDRLVL 


2272 










1 ##*#####*####»##**»#########*#########♦♦####*#»###♦##♦*#»##♦########*### 


2273 


0071 46 


000024 






AT24I 


24 




i TEST « 


2274 


007150 


007240 








AT25 




J NEXT TEST 


2275 


007152 


000144 








100. 




jl COUNT 


2276 


007154 


007156 








AT24A 




JSCOPE ENTRY 


2277 










>#####♦#############♦*##♦♦############•»#####♦#*########♦######»########## 


2278 










> TEST THAT READER DOES NOT REINTERRUPT AFTER RT I WHEN DONE BIT IS NOT CLEARED 


2279 


007 156 


104011 






AT24AJ 


STRDRV 




J SET READER INTERRUPT VECTOR 


2280 


007 1 60 


00721 4 








AT24C 






2281 


007162 


012767 


000000 


170606 




MOV 


#PRTY0,PSW 


;SET PROCESSOR TO PRIORITY 


2282 


007 1 70 


005077 


1 7201 4 






CLR 


9PRS 


} D I SABLE READER INTERRUPT, 


2283 


007174 


004767 


173462 






JSR 


%7 , AREAD 


;GO READ A CHARACTER, 


2284 


007200 


052777 


000100 


1 /ZH02 




BIS 


#B1T6, ?PRS 


J ENABLE READER INTERRUPT 


2285 


007206 


000240 








NOP 






2286 


007210 


104006 






AT24E11 


ERROR 




JERPOR 1, READER FAILED TO INTERRUPT 


2287 


007212 


1 0401 3 








SCOPE 






2288 


007214 


012777 


007234 


171776 


AT24CS 


MOV 


ft AT24E2 , (9RDRVTR j CHANGE INTERRUPT VECTOR TO AT24E2 


2289 


007222 


012716 


007230 






MOV 


«AT24D,g%6 




2290 


007226 


000002 








RTI 




j RETURN FROM INTERRUPT 


2291 


007230 


000240 






AT24D 1 


NOP 






2292 


007232 


104013 








SCOPE 






2293 


007234 


104006 






AT24E2: 


ERROR 




;ERPOR 2, READER REINTERRUPTED AFTER 


2294 


007236 


104013 








SCOPE 




jRTl WITH DONE BIT LEFT ON 


2295 












2296 


007240 


000025 






AT25! 


25 




> TEST # 


2297 


007242 


007316 








AT26 




j NEXT TEST 


2298 


007244 


001750 








1000. 




Jl COUNT 


2299 


007246 


007254 








AT25A 




; SCOPE ENTRY, 


2300 












2301 










1 TEST THAT READER INTERRUPTS 


IMMEDIATELY UpON LOWERING Cp PRIORITY TO 0, 


2302 


007250 


10401 1 








STRDRV 




; SET PEADEr INTERRUPT VECTOR TO 


2303 


007252 


007314 








AT25B 




JAT27B. 


2304 


007254 


01 2767 


000340 


1 7051 4 


AT25AS 


MOV 


#PRTY7,PSW 


jSET CP PRIORITY TO 7. 




vv 1 Ixti 


00507 7 








CLR 


0PRS 


; DISABLE PTRI, 


2306 


007266 


004767 


173370 






JSR 


%7, AREAD 


,'READ A CHARACTER, 


2307 


007272 


052777 


000100 


171710 




BIS 


«BIT6, PPRS 


; ENABLE PTRI 


2308 


007300 


005067 


170472 






CLP 


psw 


; LOWER PRIORITY TO 0, 


2309 


007304 


012767 


000340 


170464 




MOV 


#PRTY7,PSW 


; RAISE PRIORITY BACK TO 7, 


2310 


007312 


104006 






AT25EI 


ERROR 




; ERROR , READER FAILED TO INTERRUPT IMMEDIATELY 


2311 
















; AFTER LOWERING PRIORITY TO 


2312 


007314 


104013 






AT25BJ 


SCOPE 




; INTERRUPTS TO HERE IF SUCCESSFUL, 


2313 












2314 


007316 


100026 






AT26J 


26+MANUAL 


; TEST * 


2315 


007320 


007412 








AT27 




; NEXT TEST 


2316 


007322 


000144 








100, 




;I COUNT 


2317 


007324 


007350 








AT26A 




J SCOPE ENTRY 
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2318 












2319 










1 TEST THAT READER ERROR CRIPPLES 


1 READER ENABLE 


2320 


007326 


004567 


173222 






JSP 


%5,PCS1M 




2321 


007332 


000033 








3 3 






2322 


007334 


007350 








AT26A 




;SKIP THIS XOR TEST 


2323 


007336 


104004 








TYPES 




; TYPE* SET READER AS FOLLOWS J POWER ON, 


2324 


007340 


016405 








IM10 




> OFF-LINE* TAPE IN READER 


2325 


007342 


017025 








IM23 






2326 


007344 


177777 








-1 






2327 


007346 


000000 








HALT 






2328 


007350 


005777 


171634 




AT26AI 


TST 


faPRS 


; CHECK FOR ERROR BIT, 


2329 


007354 


100012 








RPL 


AT26E1 


; BRA NC H IF ERROR BIT NOT SET , 


2330 


007356 


005277 


171626 






INC 


PPRS 


; ATTEMPT READER ENABLE 


2331 


007362 


005767 


172452 






TST 


XORFLG 




2332 


007366 


001010 








BNE 


AT26B 




2333 


007370 


032777 


004000 


171612 




BIT 


#BITll,apRS 


; TEST READER BUSY BIT 


2334 


007376 


001003 








BNE 


AT26E2 




2335 


007400 


104013 








SCOPE 






2336 


007402 


104006 






AT26E1 I 


ERROR 




;ERPOP 1, ERROR BIT NOT SET, OR READER 


2337 


007404 


104013 








SCOPE 




JNOT SET UP AS SPECIFIED, 


2338 


007406 


104006 






AT26E21 


ERROR 




J READER ENABLE WITH ERROR CONDITION SET 


2339 
















;BUS¥ BIT, ERROR CONDITION SHOULD HAVE 


2340 


007410 


104013 






AT26BI 


SCOPE 




} DISABLED READER ENABLE, 


2341 










I *»#»**«*****»»#*******#*»*« »****««#«*«**»**»**»**»*#*««#*«#»«**«#**#*«** 


2342 


007412 


100027 






AT27! 


27+MANUAL 


J TEST * 


2343 


007414 


007530 








AT30 




j NEXT TEST, 


2344 


007416 


000144 








100. 




;I COUNT 


2345 


007420 


007444 








AT27A 




JSCOPF ENTRY 


2346 












2347 










| TEST THAT ERROF 


t BIT IS ABLE TO 


INTERRUPT, AND AFTER INTERRUPT 


2348 










JSERVICE IT DOES 


i NOT REINTERRUPT 


AGAIN, 


2349 


007422 


004567 


173126 






JSR 


%5,PCSIM 




2350 


007426 


000033 








33 






2351 


007430 


007444 








AT27A 






2352 


007432 


104004 








TYPES 




jTYPEf SET READER AS FOLLOWS! POWER OFF 


2353 


007434 


016405 








IM10 




jOFFLINEj TAPE IN READER 


2354 


007436 


017025 








IM23 






2355 


007440 


177777 








-1 






2356 


007442 


000000 








HALT 






2357 


007444 


104011 






AT27AI 


STRDRV 




jSET UP READER INTERRUPT VECTOR 


2358 


007446 


007500 








AT27C 






2359 


007450 


005777 


171534 






TST 


0PRS 


; TEST ERROR BIT, 


2360 


007454 


100023 








BPL 


AT27E1 


j BRANCH IF ERROR BIT NOT SET (BIT 15 OF PR, 


2361 


007456 


042777 


000100 


171524 




BIC 


#BIT6,9PRS 


; DISABLE READER INTERPUPT. 


2362 


007464 


052777 


000100 


171516 




BIS 


#BIT6,3PRS 


; ENABLE READER INTERRUPT 


2363 


007472 


000240 








NOP 






2364 


007474 


104006 






AT27E2I 


ERROR 




jERROP 2, ERROR CONDITION FAILED TO CAUSE 


2365 
















J READER INTERRUPT 


2366 


007476 


104013 








SCOPE 






2367 


007500 


012777 


007520 


171512 


AT27CI 


MOV 


»AT27E3,PRDRVTR 


;SET UP READER SERVICE TO AT27E3 


2368 


007506 


012716 


007514 






MOV 


#AT27D,P%6 


J MODIFY INTERPUPT RETURN ADDRESSD 


2369 


007512 


000002 








RTI 




; RETURN FROM INTERRUPT 


2370 


007514 


000240 






AT27DI 


NOP 




JOK IF NO INTERRUPT, 


2371 


007516 


104013 








SCOPE 






2372 


007520 


104006 






AT27E3I 


ERROR 




;ERROp 3, ERROR CONDITION RESULTED IN 


2373 
















;A REINTERRUPT AFTER INITIAL INTERRUPT 
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2374 


007522 


1 0401 3 






SCOPE 




{WAS SERVICED 


2375 


007524 


1 04006 




AT27E1 i 


ERROR 




; ERROR 1, ERROR BIT NOT SET* OR READER 


2376 


007526 


10401 3 






SCOPE 




;NOT SET UP AS SPECIFIED 


2377 
















2378 


007530 


100030 




AT30I 


30+MANUAL 


; TEST » 


2379 


007532 


177777 






-1 




; LAST TEST 


2380 


007534 


001750 






1000. 




;I COUNT 


2381 


007536 


007576 






AT30A 




1 SCOPE ENTRY, 


2382 








;#*#»»•****««***#*»*»»#»*«'*#«*#«**«**»«««'#««»»*»»#*»»*««*»#«*«»*#***««#** 


2383 








{ TEST THAT WITH 


ERROR BIT SET AND HAVING GENERATED AN INTERRUPT, 


2384 








j ISSUING A READER ENABLE CAUSES 


AN IMMEDIATE INTERRUPT, 


2385 


007540 


004567 


173010 




JSR 


%5,PCSIM 




2386 


007544 


000033 






33 






2387 


007546 


007562 






IS 






2388 


007550 


104004 






TYPES 






2389 


007552 


016405 






IM10 






2390 


007554 


017025 






IM23 






2391 


007556 


177777 






-1 






2392 


007560 


000000 






HALT 






2393" 


007562 


104002 




IS: 


SRESET 






2394 


007564 


104011 






STRDRV 




{SET PTR VECTOR TO AT30B , 


2395 


007566 


007624 






AT30B 






2396 


007570 


005277 


171414 




INC 


9PRS 


{ Eft ABIE READER, 


2397 


007574 


104400 






DELAYX 




f WAIT A WHILE, 


2398 


007576 


005777 


171406 


AT30AI 


TST 


§PRS 


{ TEST FOR ERROR, 


2399 


007602 


100025 






BPL 


AT30E1 


{ BRANCH IF ERROR NOT SET, 


2400 


007604 


005077 


171400 




CLR 


0PRS 


; DISABLE PTRI 


2401 


007610 


052777 


000100 


171372 


BIS 


*BIT6# «PRS 


{ENABLE PTRI 


2402 


007616 


000240 






NOP 






2403 


007620 


104006 




AT30E2* 


ERROR 




; ERROR FAILED TO INTERRUPT, 


2404 


007622 


104013 






SCOPE 






2405 


007624 


012716 


007632 


AT30BI 


MOV 


#AT30C,©%6 


{ ERROR INTERRUPTS TO HERE, SET UP INTERRUPT 


2406 


007630 


000002 






RTI 




;EXIT. AND EXIT, 


2407 


007632 


104011 




AT30CI 


STRDRV 




;SET PTR VECTOR TO AT30D, 


2408 


007634 


007654 






AT30D 






2409 


007636 


005777 


171346 




TST 


0PRS 


; TEST THAT ERROR BIT IS STILL ON, 


2410 


007642 


100005 






BPL 


AT30E1 


{ BRANCH IF NO ERROR BIT, 


2411 


007644 


005277 


171340 




INC 


@PRS 


{ READER ENABLE , SHOULD CAUSE 


2412 


007650 


300240 






NOP 




; IMMEDIATE INTERRUPT, 


2413 


007652 


104006 




AT30E3} 


KRROp 




; error , reader enable with previous error 


2414 














{ INTERRUPT FAILED TO INTERRUPT, 


2415 


007654 


104013 




AT30DI 


SCOPE 




{OK, INTERRUPT OCCUREED, 


2416 


007656 


005077 


171326 


AT30E1 1 


CLR 


SPPS 


{DISABLE PTRI 


2417 


007662 


104006 






ERROR 




; ERROR BIT NOT SET, 


2418 


007664 


104013 






SCOPE 
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2419 










,SBTTL 


PRGI - READER TEST 


2420 










{ PRGI l READER TEST 


2421 


007666 


012767 


007724 


171356 


PRGI! MOV 


# BT0 1 KSTART {SET ADDRESS OF FIRST ROUTINE 


2422 


007674 


104004 






TYPES 


{TKPE SET UP INSTRUCTIONS 


2423 


007676 


016360 






IM7 




2424 


007700 


016334 






IM6 




2425 


007702 


017025 






1M23 




2426 


007704 


177777 






-1 




2427 


007706 


000000 






HALT 




2428 


007710 


004767 


005326 




JSR 


%7,SWTL 


2429 


007714 


004767 


174000 




JSR 


PC , RTMCAL {CALIBRATE DELAY RTN WITH READER, 


2430 


007720 


000167 


171764 




JMP 


GETRDY ;GO GET STARTED, 


2431 












2432 


007724 


000000 






BT0 : 


j TEST « 


2433 


007726 


007752 






BT1 


! NEXT TEST 


2434 


007730 


023420 






10000. 


{I COUNT 


2435 


007732 


007740 






BT0A 


j SCOPE ENTRY 


2436 










} »»#««««»»*»«»»**»*»**#***»*»*#**«»**«#***»#«»##»*»***«»«**##««»«***«*«*« 


2437 










f READ AND CHECK 


10000 CHARACTERS OF SPECIAL BINARY COUNT PATTERN, FULL SPEED, 


2438 


007734 


004767 


174512 




JSR 


%7,BSYNC { SYNC READER { SET ERROR COUNTER, 


2439 


037740 


004767 


173136 




BT0A! JSR 


%7, BREAD {GO READ CHARACTER 


2440 


007744 


004767 


174422 




JSR 


%7,BCHECK {GO CHECK CHARACTER READ, 


2441 


007750 


104013 






SCOPE 




2442 










j 


2443 


007752 


000001 






BT1 J 1 


{TEST # 


2444 


007754 


240010 






BT2 


{ NEXT TEST 


2445 


007756 


000764 






500, 


{I COUNT 


2446 


007760 


007774 






BT1 A 


{SCOPE ENTRY 


2447 










j ##*»***#******»«»«*«*»#«*»#*«*»»#«*««»»«««**»»»««»»««»»**««#*««»***«**«* 


244R 










; READ AND CHECK 


500 CHARACTERS OF SPECIAL BINARY COUNT PATTERN 


2449 










{ RANDOM STALL BETWEEN CHARACTERS (0 TO 7 MsECS), 


2450 


007762 


012767 


177770 


174315b 


MOV 


#177770, STLMSK 


2451 


007770 


004767 


174456 




JSP 


%7,BSYNC {SYNC READERf SET ERROR COUNTER 


2452 


007774 


1 04005 






BTlAl STALL 


; RANDOM STALL (0 TO 7 MSECS) 


2453 


007776 


004767 


173100 




JSR 


%7, BREAD ; GO READ CHARACTER 


2454 


010002 


004767 


174364 




JSR 


%7,BCHECK {GO CHECK CHARACTER READ 


2455 


010006 


104013 






SCOPE 




2456 










; »•***«*«»***»*»*»»*#»»»»»#»«**«»«*«»#**»»**»»*»*«»»»*»»«•«**#»#*#»«##«*# 


2457 


010010 


000002 






BT2I 2 


{TEST # 


2458 


010012 


010062 






BT3 


{ NEXT TEST 


2459 


010014 


001750 






1000, 


{I COUNT 


2460 


010016 


010032 






BT2A 


{SCOPE ENTRY 


2461 










{ »»#*#*«*»«*«**»**««*««»»«******««*»*#»»»«*«»«*««»«»*»»«*«»**«*«»«**«#*** 


2462 










{ READ 1000 GROUPS OF 3 CHARACTERS EACH, RANDOM STALL (0 TO 31 MsECS) BEFORE EACH 


2463 


010020 


012767 


177740 


174260 


MOV 


#177740, STLMSK {LIMIT STALLS TO 31 MSECS, 


2464 


010026 


004767 


174420 




JSR 


%7,BSYNC {SYNC READER, SET ERROR COUNTER 


2465 


010032 


012767 


000003 


174330 


BT2A| MOV 


#3,RNCNT {SET CHAR COUNT TO 3, 


2466 


010040 


104005 






STALL 


{ RANDOM STALL (0 TO 31 MSECS), 


2467 


010042 


004767 


173034 




BT2C 1 JSR 


%7, BREAD {GO READ CHARACTER, 


2468 


010046 


004767 


174320 




JSR 


%7,BCHECK {GO CHECK CHARACTER READ, 


2469 


010052 


005367 


174312 




DEC 


RNCNT {3 CHARS READ? 


2470 


010056 


001371 






BNE 


BT2C {BR IF NOT 3 CHARS YET, 


2471 


010060 


104013 






SCOPE 




2472 










} »»*»«»««*«»»«**«»*««»»«•*»«««***«*»««««*»«««•«*»«#**««»*•»«#*#*»#****««« 


2473 


010062 


000003 






BT3 i 3 


{TEST # 


2474 


010064 


010140 






BT4 


{NEXT TEST 
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2475 


tx i aatLf. 

V l KluQO 


00 1750 








1000, 




J I COUNT 




v 1 WW 1 W 


010112 








BT3A 




j SCOPE ENTRY, 


2477 












2478 










j READ AND CHECK 


1000 CHARACTER 


GROUPS OF RANDOM LENGTH (1 TO 15), 












| RANDOM 


STALL (0 


I TO 31 MSECS) 1 


BETWEEN GROUPS, 




1 007 2 


a\ in! 








MOV 


#177740, STLMSK 


ILIMIT STALLS TO 31 MSECS, 


* AO* 

2481 


v 1 SB 1 (ail? 




| ' ' \vL 


1 74260 




MOV 


#177760, RCMSK 


j LIMIT MAY CHAR COUNT TO 15 CHARS, 




0101 06 










JSP 


%7,BSYNC 


»SYNC READER, SET ERROR COUNTER, 


2483 


010112 


004767 


1 74230 




BT3A| 


JSR 


%7,GRCNT 


| GENERATE RANDOM CHAR COUNT, 


2484 


010116 


104005 








STALL 






2485 


010120 


004767 


172756 




BT3CI 


JSR 


%7, BREAD 


>G0 READ CHARACTER, 


2486 


010124 


004767 


174242 






JSR 


%7,BCHECK 


jGO CHECK CHARACTER, 


2487 


0101 30 


005367 


174234 






DEC 


RNCNT 


1 ALL CHARS READ? 


2488 


010134 


001 37 1 








BNE 


BT3C 


t BRANCH IF NOT, 


2489 


010136 


104013 








SCOPE 






2490 












2491 


010140 


000004 






BT4I 


4 




j TEST « 


2492 


010142 


177777 








-1 




; LAST TEST 


2493 


010144 


001 750 








1000, 




ll COUNT 


2494 


010146 


010170 








BT4A 




fSCOPE ENTRY 


2495 










I 


2496 










% READ AND CHECK 


1000 CHARACTER 


GROUPS OF SPECIAL BINARY COUNT PATTERN, 


2497 










} RANDOM 


LENGTH 






2498 










jGpOUPS 


(BETWEEN 


I 1 AND 77), RANDOM STALL BETWEEN GROUPS (0 TO 31 MSECS) , 


2499 


010150 


012767 


177740 


174130 




MOV 


#177740, STLMSK 




2500 


010156 


012767 


177700 


174202 




MOV 


#177700, RCMSK 




2501 


010164 


004767 


174262 






JSR 


%7,BSYNC 


jSYNC READERi SET ERROR COUNTER, 


2502 


010170 


004767 


174152 




BT4AI 


JSP 


%7,GRCNT 


I GENERATE RANDOM CHARACTER COUNT, 


2503 


010174 


104005 








STALL 




; RANDOM STALL (0 TO 31MSECS) 


2504 


010176 


004767 


172700 




BT4CI 


JSR 


%7, BREAD 


;G0 READ CHARATEP 


2505 


010202 


004767 


174164 






JSR 


%7,BCHECK 


;G0 CHECK CHARACTER READ 


2506 


010206 


005367 


174156 






DEC 


RNCNT 


J DECREMENT RANDOM CHAR COUNT 


2507 


010212 


001371 








BNE 


BT4C 


;G0 READ AGAIN IF COUNT NOT 0, 


2508 


010214 


104013 








SCOPE 
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2509 










, SBTTL PRG2 - PUNCH LOGIC TESTS 


2510 


010216 


012767 


010240 


171026 


PRG2 : MOV #CT0# KSTART 


JADDR OF 1ST ROUTINE TO KSTART 


2511 


010224 


104003 






TYPE 


JTYPE TITLE , 


2512 


010226 


015574 






IM0A 




2513 


010230 


004767 


005006 




JSR %7,SwTL 




2514 


010234 


000167 


171450 




JMP GETPDY 


;G0 GET STARTED, 


2515 
2516 


010240 


000000 






CT0! 


J TEST # 


2517 


010242 


010270 






CT1 


; NEXT TEST 


2518 


010244 


001750 






1000, 


?I COUNT 


2519 


010246 


010256 






CT0A 


JSCOPE ENTRY 


2520 












2521 










j TEST ABILITY TO REFERENCE THE 


PUNCH STATUS WORD (PPS) 


2522 


010250 


012767 


010264 


167526 


MOV #CT0E, MACHER 




2523 


010256 


005777 


170732 




CT0A| TST §PPS 


i REFERENCE PUNCH STATUS WORD 


2524 


010262 


104013 






SCOPE 




2525 


010264 


104006 






CT0E} ERROR 


;ERROP, TRAPPED WHEN REFERENCING PUNCH 


2526 


010266 


104013 






SCOPE 


;STATUS WORD (PPS) , 


2527 










» **»**#*«*»*#»*»#*«#*»*»«**««***««*«»»***»*****#«»«*«**««***»**»**«***#*« 


2528 


010270 


000001 






CT1 I 1 


J TEST # 


2S29 


010272 


010320 






CT2 


J NEXT TEST 


2530 


010274 


001750 






1000, 


;I COUNT 


2531 


010276 


010306 






CT1A 


JSCOPE ENTRY 


2532 












2533 










> TEST ABILITY TO REFERENCE THE 


PUNCH BUFFER (PPB) 


2534 


010300 


012767 


010314 


167476 


MOV #CT1E, MACHER 


; SET UP MACHINE ERROR TRAP, 


2535 


010306 


005777 


170704 




CTlAl TST PPPB 


j REFERENCE PUNCH BUFFER, 


2536 


010312 


104013 






SCOPE 




2537 


010314 


104006 






CTlEi ERROR 


J TRAPPED WHEN REFERENCING 


2538 


010316 


104013 






SCOPE 


;PUNCH BUFFER (PpB) 


2539 










; 


2540 


010320 


100002 






CT2I 2+MANUAL 


j TEST # 


2541 


010322 


010370 






CT3 


; NEXT TEST 


2542 


010324 


001750 






1000, 


;I COUNT 


2543 


010326 


010354 






CT2A 


JSCOPE ENTRY 


2544 










j 


2545 










> TEST THAT PUNCH POWER OFF SETS ERROR AND READY BITS IN pps 


2546 


010330 


004567 


172220 




JSR %5,PCSIM 




2547 


010334 


000433 






433 




2548 


010336 


010354 






CT2A 




2549 


010340 


104004 






TYPES 


', TYPE INSTRUCTIONS TO TURN POWER 


2550 


010342 


016434 






IMH 


JOFK AND REMOVE TAPE FROM 


2551 


010344 


016467 






IM12 


JPUNCH 


2552 


010346 


017025 






IM23 




2553 


010350 


177777 






-1 




2554 


010352 


000000 






HALT 


fWAlT FOR USER 


2555 


010354 


022777 


100200 


170632 


CT2AJ CMP #100200, @PP5 


; TEST PPS, 


2556 


010362 


001401 






BEQ ,+4 


j BRANCH IF ERROR AND READY SET, 


2557 


010364 


104006 






ERROR 


J ERROR , PUNCH ERROp BIT (BIT 15) NOT SET BY 


2558 


010366 


104013 






SCOPE 


JPUNCH POWER OFF, OR READY BIT NOT SET* OR 


2559 












J SOME OTHER BIT IS SET, EXAMINE PUNCH 


2560 












} STATUS WORD MANUALLY, 


2561 












2562 


010370 


100003 






CT3 1 3+MANUAL 


J TEST # 


2563 


010372 


010436 






CT4 


f NEXT TEST 


2564 


010374 


001750 






1000, 


II COUNT 
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2565 
2566 
2567 
2566 
2569 
2570 
2571 
2572 
2573 
2574 
2575 
2576 
2577 
2578 
2579 
2580 
2581 
2582 
2583 
2584 
2585 
2586 
2587 
2588 
2589 
2590 
2591 
2592 
2593 
2594 
2595 
2596 
2597 
2598 
2599 
2600 
2601 
2602 
2603 
2604 
2605 
2606 
2607 
2608 
2609 
2610 
2611 
2612 
2613 
2614 
2615 
2616 
2617 
2618 
2619 
2620 



010376 010424 



004567 
000433 
010424 
104004 
016434 
016513 
017025 
177777 



010404 
010406 
010410 
010412 
010414 
010416 
010420 
010422 
010424 
010430 
010432 
!? 1 Pt r , 3 4 

010436 
010440 
010442 
010444 



010446 
010452 
010454 
010456 
010460 
010462 
010464 
01046b 
010470 
010472 
010476 
010500 
010502 

010504 
010506 
010510 
010512 



010514 
010522 
010530 
010536 
010540 
010542 
010544 
010552 
010560 
010562 
010564 



005777 
100401 
104006 
104013 

100004 
010504 
001750 
010472 



004567 
000033 
010472 
104004 
016434 
016536 
017025 
177777 



005777 
100001 
104006 
104013 

000005 
010566 
001750 
010514 



012767 
052777 
032777 
001002 
104006 
104013 
042777 
032777 
001 401 
104006 
104013 



CT3A > SCOPE ENTRY 

j #«•»«*»***»»*»#«»#*«»»*■»»#«**«*#»*#«*»*«#***»««»**«##«#»»«##««###«»»«*«# 

J TEST THAT PUNCH OUT OF TAPE SETS ERROR BIT IN ppS 
JSP %5,PCSIM 
433 
CT3A 
TYPES 
IM11 
IM13 
IM2 3 
-1 

HALT 
TST 
BMI 
ERROR 
SCOPE 



J TYPE INSTRUCTIONS TO TURN PUNCH 
,'POWER ON, AND REMOVE TAPE FROM PUNCH. 



CT3AI 



9PPS 
, + 4 



;WAIT FOR USER , 
; TEST PPS 

1 BR IF ERROR BIT SET, 

f ERROR , PUNCH OUT OF TAPE FAILED TO SET 
J THE ERROR BIT IN PPS CBIT 15), 
I 

CT4 ! 4+MANUAL ; TEST * 

CT5 ; NEXT TEST 

1000, Jl COUNT 

CT4A fSCOPE ENTRY 

; TEST THAT PUNCH ERROR BIT IS NOT SET WHEN PUNCH POWER Is ON AND TAPE IS IN PUNCH, 



000340 
000100 
000100 



000100 
0001 00 



167254 
170464 
170456 



1 70442 
170434 



JSR 
33 

CT4A 
TYPES 
1M11 
IM14 
1M23 
-1 

HALT 
TST 
HPL 
EPPOP 
SCOPE 

CT5 1 5 

CT6 

1000 , 
CT5A 

; *••*»*»*««< 

> TEST ABILITY 



%5,PCSIM 



; TYPE INSTRUCTIONS TO LOAD TAPE IN 
;PUNCH AND TURN POWER ON, 



;WAIT FOR USER, 
j TEST PPS 

; BR IF ERROR BIT NOT SET , 

•ERROR , ERROR BIT SET WITH NO ERROR 

JCONDITION PRESENT, 

j TEST » 
jNFXT TEST 
Jl COUNT 
; SCOPE ENTRY 



CT5AI 



TO SET AND CLEAR 
#PRTY7 # PSW 
#B1T6, 9PPS 
#BITb, §PPS 
CT5H 



IN pps 
7 



ID HIT (BIT 6) 
;SET PRIORITY 
;SET ID BIT IN PpS (BIT 6 
;CHECK ID BIT IN PpS 
; BRANCH IF BIT SET 

; FAILED TO SET ID BIT (BIT 6) IN PPS 



) 



010566 000006 



MOV 

bis 

BIT 
b«E 
ERROR 
SCOPE 

CT5BS BIC #BIT6,@PPS 
BIT «BIT6,»PPS 
BEu ,+4 

ERROR 
SCOPE 

j 

CT6! 6 • TEST « 



; CLEAR ID BIT IN pps 
;CHECK ID BIT IN Pps 
JBR IF BIT IS NOT SET, 

; ERROR , ID BIT IN PPS FAILED TO CLEAR 
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2621 


010570 


010630 




2622 


010572 


000144 




2623 


010574 


010576 




2624 








2625 








2626 


010576 


012767 


000340 


2627 


010604 


052777 


000100 


2628 


010612 


104002 




2629 


010614 


032777 


000100 


2630 


010622 


001 401 




2631 


010624 


104006 




2632 


01062b 


10401 3 




2633 








2634 


010630 


000007 




2635 


010632 


010652 




2636 


010634 


001750 




2637 


010636 


010640 




2638 








2639 








2640 








2641 


010640 


105777 


170350 


2642 


010644 


1 00401 




2643 


010646 


104006 




2644 


01065U 


104013 




2645 








2646 


010652 


000010 




2647 


010654 


010742 




2648 


010656 


000400 




2649 


010660 


010662 




2650 








2651 








2652 


010662 


104002 




2653 


010664 


004767 


174314 


2654 


010670 


012777 


000000 


2655 


010676 


105777 


170312 


2656 


010702 


100001 




2657 


010704 


104006 




2658 


010706 


013746 


000004 


2659 


010712 


012737 


010736 


2660 


010720 


005737 


177060 


2661 


010724 


105237 


010672 


2662 


010730 


012637 


000004 


26b3 


010734 


104013 




2664 


010736 


022626 




2665 


010740 


000773 




2666 








2667 








2668 


010742 


00001 1 




2669 


010744 


011004 




2670 


01074b 


000144 




2671 


010750 


010752 




2672 








2673 








3674 


010752 


104002 




2675 


010754 


004767 


174224 


2676 


010760 


016700 


170232 



CT7 

100, 

CT6A 



;NEXT TEST 
;I COUNT 
JSCOPE ENTRY 



167172 CT6AS 
170402 

170372 



! TEST ABILITY TO CLEAR ID BIT IN PPS (8IT6) WITH RESET INSTRUCTION 



MOV 
BIS 

SRESET 

BIT 

BEU 

ERROR 

SCOPE 



CT10 

1000, 

CT7A 



#PRTY7, PSW 
»BIT6,9PPS 



#BIT6, 9PPS 
,+4 



;SET PRIORITY 7, 
;5ET ID BIT IN PPS. 
; RESET, 

J TEST ID BIT IN PPS, 

; BR IF IE BIT NOT SET, 

;EHROP. RESET INSTRUCTION FAILED TO 

; CLEAR ID BIT (BIT 6) IN PPS, 

; TEST 9 
; NEXT TEST 
Jl COUNT 
,'SCOPE ENTRY 



; TEST THAT READY BIT (BIT 7) IS SET FOLLOWING A RESET INSTRUCTION , AND 
•THAT THE READY BIT CAN BE READ RELIABLY, 
CT7AJ TSTB fapps • TEST PPS 

BMI ,+4 JBR IF READY BIT SET, 

ERROR jEPROP, RESET FAILED TO SET READY BIT, 

SCOPE ;OR FAILED TO READ READY BIT, 

CT10J 10 ; TEST « 

CT1 1 ; NEXT TEST 

256, ;I COUNT 

CT10A ,'SCOPE ENTRY 

}###**##***####*** 

', TEST THAT READY BIT (BIT 7) OF PPS IS RESET BY LOADING PUNCH BUFFER (PPB) 



CT10AI 
170320 CT10B* 



XPl 

CT10CJ 
XPBE! 



CTHI 



SRESET 
JSR 
MOV 
TSTB 
BPL 
ERROR 
MOV 
MOV 
TST 
INCB 
MOV 
SCOPE 
CMP 
BR 



%7,CPRDY 
#0,8PPB 
9PPS 
.♦4 

§#4,-(%6) 

*XPBE,0#4 

P#177060 

P&CT10B+2 

(%6)+,9#4 

(%6)+, (%6) 
XP 



} RESET 
SCHECK FOR PUNCH READY 
; LOAD INTO PUNCH BUFFER (PPB) 
J TEST PPS 

jBP IF READY BIT RESET, 

; ERROR , LOADING PUNCH BUFFER (PPB) 



j FAILED TO RESET READY BIT IN PPS 



11 J TEST S 

CT12 f NEXT TEST 

101$. Jl COUNT 

CT11A JSCOPE ENTRY 

f 

J TEST THAT READY BIT (BIT 7) IS NOT RESET BY BYTE LOADING PPBtl, 
CT1 1 A J SRESET J RESET 

JSR %7,CPRDY jCHECK FOR PUNCH READY, 

MOV PPB,%0 
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2677 


010764 


005200 




2678 


010766 


112710 


000000 


2679 


010772 


105777 


170216 


2680 


010776 


100401 




2681 


011000 


104006 




2682 


011002 


104013 




2683 








2684 


011004 


000012 




2685 


011006 


011052 




2686 


011010 


001750 




2687 


011012 


011020 




2688 








2689 








2690 








2691 


011014 


104012 




2692 


011016 


011050 




2693 


011020 


005067 


166752 


2694 


011024 


004767 


174154 


2695 


011030 


042777 


000100 


2696 


011036 


052777 


000100 


2697 


011044 


000240 




2698 


011046 


104006 




2699 








2700 


011050 


104013 




2701 








2702 


011052 


000013 




2703 


011054 


011144 




2704 


011056 


001750 




2705 


011060 


011062 




2706 








2707 








2708 


01 1062 


104012 




2709 


011064 


011120 




2710 


011066 


005067 


166704 


2711 


011072 


004767 


174106 


2712 


011076 


042777 


000100 


2713 


011104 


052777 


000100 


2714 


011112 


000240 




2715 


011114 


104006 




2716 


011116 


104013 




2717 


011120 


012777 


011140 


2718 


011126 


012716 


011134 


2719 


011132 


000002 




2720 


011134 


000240 




2721 


011136 


104013 




2722 


011140 


104006 




2723 


011142 


104013 




2724 








2725 


011144 


000014 




2726 


011146 


011220 




2727 


011150 


001750 




2728 


011152 


011160 




2729 








2730 








2731 








2732 


011154 


104012 





170156 
170150 



170110 
170102 



; LOAD PPB+1 
{ TEST PPS 

; BRANCH IF READY BIT NOT RESET, 

{ ERROR t LOADING PPB + 1 CLEARED READY BIT, 



INC %0 
MOVB *0,@%0 
TSTB 9PPS 
BMI ,+4 
CT11EI ERROR 
SCOPE 

{ ##*»»«*«»»**««#«»**»#«»#»«»***»***««««»•#***»*##**»«»«»«*»»*«******««««# 

CT1 2 1 12 { TEST * 

CT13 } NEXT TEST 

1000, {I COUNT 

CT12A j SCOPE ENTRY 

j «»»«»»*»«*»***»«***»»«*»»*»«***»«*#*»*#*»#*»*«*«*#***«»«#*»»««»«#«**«»#* 
I TEST THAT PUNCH (READY BIT) IS ABLE TO INTERRUPT, IF THE INTERRUPT IS 
> SERVICED, IT WILL HAVE OCCURRED AT CORRECT VECTOR, 



CT12AI 



CT12EI 



STPCHV 
CT12C 
CLR 
JSR 
BIC 
BIS 
NOP 
ERROR 



{SET UP PUNCH INTERRUPT VECTOR, 

PSW SET PRTY TO 0, 

%7,CPRDY {CHECK FOR PUNCH READY, 

*BIT6, epps ; DISABLE PUNCH INTERRUPT 

#BITb,9PPS J ENABLE PUNCH INTERRUPT 



CT12CI SCOPE 



{ERROR, FAILURE TO INTERRUPT WITH 
{PUNCH READY BIT SET, 
j INTERRUPT VECTOR POINTS HERE, 
; »**»*»*«*«*««»*#»««*#«»*#»««»»«**#**#*»***«»»»*«*«****««««*«*»««***###** 
CT13I 13 ; TEST » 

CT14 { NEXT TEST 

1000, {I COUNT 

CT13A {SCOPE ENTRY 

{ ##########»#*###**#»############♦#**######*##############*####*###•»##*# 
; TEST THAT PUNCH DOES NOT REINTERRUPT AFTER RTl WHEN READY BIT IS NOT RESET. 



CT13A| 



CT13EH 



170076 CT13CS 



CT13DI 



STPCHV 
CT13C 
CLR 
JSP 
BIC 
BIS 
NOP 
ERROR 
SCOPE 
MOV 
MOV 
RTI 
NOP 
SCOPE 
ERROR 
SCOPE 



PSW 

%7,CPRDY 

#BIT6r@PPS 

#BIT6#PPPS 



#CT1 3E2,9PCHVTR 

#CT13D,3%6 



{SET UP PUNCH INTERRUPT VECTOR 

{SET PRTY TO 0, 
{CHECK FOR PUNCH READY, 
; DISABLE PUNCH INTERRUPT 
; ENABLE PUNCH INTERRUPT 

{ ERROR 1 , PUNCH FAILED TO INTERRUPT , 

j CHANGE INTERRUPT VECTOR TO CT13E2 
•CHANGE INTERRUPT RETURN ADDRESS, 
; RETURN FROM INTERRUPT, 



CT13E2! ERROR ; ERROR2 , PUNCH REINTERRUPTED AFTER RTI WITH 

j READY BIT LEFT ON, 
{ «»#*»***«*»»#«»«»**»»**«*»***«»«»******#***»»*»#*«»*«»»#*»*«**##*****«## 

CT14I 14 { TEST * 

CT15 { NEXT TEST 

1000, {I COUNT 

CT14A { SCOPE ENTRY 

; 

j TEST THAT THE PUNCH DOES NOT INTERRUPT WITH PROCESSOR AT SAME PRIORITY 
I LEVEL AS THE PUNCH, 

STPCHV {SET UP PUNCH INTERRUPT VECTOR, 
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DZPCAE, 


,SRC 


PRG2 - 


PUNCH LOGIC TESTS 






2733 


011156 


011214 






CT14E 




2734 


011160 


016767 


170042 


166610 CT14A! 


MOV 


PCHLVL,PSW 


2735 


011166 


005077 


170022 




CLR 


&PPS 


2736 


011172 


004767 


174006 




JSR 


%7,CPRDY 


2737 


011176 


052777 


000100 


170010 


BIS 


«BIT6,9PPS 


2738 


011204 


000240 






NOP 




2739 


011206 


005077 


170002 




CLR 


SPPS 


2740 


011212 


104013 






SCOPE 




2741 


011214 


104006 




CT14E! 


ERROR 




2742 














2743 














2744 


011216 


104013 






SCOPE 





2745 
2746 
2747 
2748 
2749 
2750 
2751 
2752 
2753 
2754 
2755 
2756 
2757 
2758 
2759 
2760 
2761 
2762 
2763 
2764 
2765 
2766 
2767 
2768 
2769 
2770 
2771 
2772 
2773 
2774 
2775 
2776 
2777 
2778 
2779 
2780 
2781 
2782 
2783 
2784 
2785 
2786 
2787 
2788 



011220 
011222 
011224 
011226 



011276 
001750 
011234 



011230 


104012 








STPCHV 




011232 


011274 








CT15B 




011234 


016767 


167766 


166534 


CT15AI 


MOV 


PCHLVL,P5W 


011242 


162767 


000040 


166526 




SUB 


#40, PSW 


011250 


042777 


000100 


167736 




BIC 


#BIT6,0PPS 


011256 


004767 


173722 






JSR 


%7,CPRDY 


011262 


052777 


000100 


167724 




BIS 


#BIT6# 9PPS 


011270 


000240 








NOP 




011272 


104006 






CT15EI 


ERROR 




011274 


104013 






CT15BI 


SCOPE 





011276 
011300 
011302 
011304 



011306 
011310 
011312 
011320 
011324 
011332 
011340 
011344 
011352 



011356 
001750 
011312 



104012 
011354 
012767 
004767 
042777 
052777 
005067 
012767 
104006 



{SET PROCESSOR PRIORITY SAME AS PUNCH, 
; D I SABLE PUNCH INTERRUPT. 
{CHECK FOR PUNCH READY, 
; ENABLE PUNCH INTERRUPT, 
{OK IF NO INTERRUPT OCCURS, 
{DISABLE PUNCH INTERRUPT, 

; ERROR , PUNCH ERRONEOUSLY INTERRUPTED 
{WITH PROCESSOR AT SAME PRIORITY LEVEL 
{AS THE PUNCH, OR THE PUNCH IS AT HIGHER 
{ PRIORITY LEVEL THAN SPECIFIED AT PCHLVL, 
; #####♦#♦###♦**#»*»#*#*###*♦*♦**•*♦####*####♦#*#♦##*#*»♦*#########*##»### 
CT15I 15 { TEST « 

CT16 { NEXT TEST 

1000, {I COUNT 

CT15A {SCOPE ENTRY 

{ ##########♦#######*#####*#*♦*######♦*####*##*################**######### 
I TEST THAT PUNCH INTERRUPTS WITH PROCESSOR AT PRIORITY 1 LEVEL LOWER 
{ THAN THE PUNCH PRIORITY, 

{SET UP PUNCH INTERRUPT VECTOR 

{SET PROCESSOR PRIORITY ONE LEVEL LOWER 
{THAN PUNCH PRIORITY, 
{DISABLE PUNCH INTERRUPT 
{CHECK FOR PUNCH READY, 
J ENABLE PUNCH INTERRUPT, 

{PUNCH FAILED TO INTERRUPT WITH PROCESSOR 
{PRIORITY ONE LEVEL LOWER THAN PUNCH, 
; THEREFORE, PUNCH PRIORITY MUST 
; BE LOWER THAN SPECIFIED AT PCHLVL, 
{ HERE IF INTERRUPT OCCURS, 
I 

CT16I 16 { TEST # 

CT17 j NEXT TEST 

1000, {I COUNT 

CT16A { SCOPE ENTRY 

j 

{ TEST THAT PUNCH INTERRUPTS IMMEDIATELY UPON LOWERING CP PRIORITY TO 0, 



000340 
173660 
000100 



166432 
000340 



166456 CT16A| 



167662 
167654 



STPCHV 
CT16B 
MOV 
JSP 
BIC 
BIS 
CLR 
MOV 
ERROR 



{SET UP PUNCH INTERRUPT VECTOR 



011354 104013 



011356 
011360 
011362 
011364 



100017 
011504 
000144 

011410 



#PRTY7,PSW {SET PROCESSOR PRIORITY TO 7 

%7,CPRDY {CHECK FOR PUNCH READY, 

#BIT6,ePP5 {DISABLE PUNCH INTERRUPT 

#BIT6#iPPS i ENABLE PUNCH INTERRUPT 

PSW { LOWER PRTY TO 0, 

#PRTY7,PSW {RAISE CP PRIORITY BACK TO 7, 

CT16EI ERROR {ERROR, PUNCH FAILED TO INTERRUPT IMMEDIATELY 

{AFTER CP PRIORITY WAS LOWERED TO 0, 

CT16BI SCOPE { HERE IF INTERRUPT OCCURS, 
{ **»««»#*»«#«**#«*«««*»»«*«*«»*#»««*•««•««*»»#«»»*«»#»##«»»#»»*#«»»***»** 

CT17I 1 7+MANUAL { TEST « 

CT20 {NEXT TEST, 

100, { I COUNT 

CT17A {SCOPE ENTRY 



PCil READER-PUNCH TESTS MACY11 27(732) 18-MAR-76 09|44 PAGE 57 
DZPCAE.SRC PRG2 - PUNCH LOGIC TESTS 



2789 










)«••*»*««•«••«»»«»*««••••«••*•«««•#*»««•««««»•«»*»*»#•••««««•#«•«»«*»»•«« 


2790 










J TEST THAT THE 


PUNCH ERROR BIT 


IS ABLE TO INTERRUPT, AND THAT IT DOES NOT 


2791 










;PEINTERPUPT AFTER RTI, 




2792 


011366 


004567 


171162 






JSR 


%5 i PCSIM 




2793 


011372 


000433 








433 




;TUPN PUN ERROR ON IF ON XOR TESTER, 


2794 


0U374 


011410 








CT17A 






2795 


011376 


104004 








TYPES 




1 TYPE INSTRUCTION TO REMOVE TAPE FROM PUNCH 


2796 


011400 


016567 








IM15 






2797 


01 1402 


017025 








IM23 






279S 


011404 


177777 














2799 


011406 


000000 








HALT 






2800 


011410 


104002 






CT17A| 


SRESET 




} RESET 


2801 


011412 


104012 








STPCHV 




f SET UP PUNCH INTERRUPT VECTOR, 


2802 


011414 


011454 








CT1 7B 






2803 


01 1416 


005777 


167572 






TST 


8PPS 


t TEST PPS 


2804 


011422 


100026 








BPL 


CT17E3 


fBRANCH IF ERROR BIT NOT SET, 


2805 


011424 


112777 


000000 


167564 




MOVB 


•0,»PPB 


j0 70 ppB TO RESET READY 


2806 


011432 


042777 


000100 


167554 




BIC 


*BITb»0PPS 


;DISABLE PUNCH INTERRUPT 


2807 


011440 


052777 


000100 


167546 




BIS 


#BIT6,®PPS 


I ENABLE PUNCH INTERRUPT 


2808 


011446 


000240 








NOP 






2809 


011450 


104006 






CT17E1I 


ERROR 




JERRORI. PUNCH ERROR BIT FAILED TO 


2810. 


011452 


104013 








SCOPE 




jCAUSE INTERRUPT, 

f CHANGE INTERRUPT VECTOR TO CT17E2 


2811 


011454 


012777 


011474 


167542 


CT17BI 


MOV 


•CT17E2,8PCHVTR 


2812 


011462 


012716 


011470 






MOV 


#CT17C,9%6 


jCHANGE INTERRUPT RETURN ADDR TO CT17C 


2813 


01 1466 


000002 








RTI 




f RETURN FROM INTERRUPT 


2814 


011470 


000240 






CT17C! 


NOP 




t HERE IF NO REINTERRUPT OCCURS, 


2815 


01 1472 


104013 








SCOPE 






2816 


011474 


104006 






CT17E2I 


ERROR 




IERR0R2, PUNCH RElNTERRUPTED AFTER 


2817 


011476 


104013 








SCOPE 




>RTI, (ERROR BIT LEFT ON), 


2818 


01 1500 


104006 






CT17E3I 


ERROR 




; ERRORS , ERROR BIT NOT SET, 


2819 


01 1502 


104013 








SCOPE 






2820 










;«««-«•««»»«»»*»«•«»««»#«»»»«««»»««»«»»#»»»*«»»»««»»»««»»»«»««»»«««««««»«« 


2821 


011504 


100020 






CT20I 


20+MANUAL 


t TEST 1 


2822 


01 1506 


177777 








-1 




;LAST TEST 


2823 


011510 


001750 








1000, 




; I COUNT 


2824 


011512 


011536 








CT20A 




;SCOPE ENTRY 


2825 










I •««»***«»«»««»*«••***»«•»*«•««»»«»»*#««•»•»*»«»»«»#»«««»«»««»««»«»•«•«** 


2826 










f TEST THAT WITH 


ERROR BIT SET AND HAVING GENERATED AN INTERRUPT, 


2827 










i LOADING THE PUNCH BUFFER CAUSES AN IMMEDIATE INTERRUPT. 


2828 


01 1514 


004567 


171034 






JSR 


%5, PCSIM 




2829 


011520 


000433 








433 






2830 


011522 


011536 








CT20A 






2831 


011524 


104004 








TYPES 




; MESSAGE TO REMOVE TAPE FROM PUNCH 


2832 


011526 


016567 








IM15 






2833 


011530 


017025 








IM23 






2834 


011532 


177777 








-1 






2835 


011534 


000000 








HALT 






2836 


011536 


104002 






CT20AI 


SRESET 




1 RESET, 


2837 


011540 


104012 








STPCHV 




JSET PTPI VECTOR TO CT20B, 


2838 


011542 


011572 








CT20B 




2839 


011544 


005777 


167444 






TST 


PPPS 


; TEST FOR ERROR 


2840 


011550 


100025 








BPL 


CT20E1 


I BRANCH IF ERROR BIT NOT SET, 


2841 


0U552 


005077 


167436 






CLR 


§pps 


^DISABLE PTPI 


2842 


011556 


052777 


000100 


167430 




BIS 


#BIT6,PPPS 


; ENABLE PTPI 


2843 


011564 


000240 








NOP 






2844 


011566 


104006 






CT20E2I 


ERROR 




jERROP FAILED TO INTERRUPT, 



DEPCAE, 


SRC 


PPG2 - 


PUNCH LOGIC 


2845 


011570 


104013 




2846 


011572 


012716 


011600 


2847 


011576 


000002 




2848 


011600 


104012 




2849 


011602 


011622 




2850 


011604 


005777 


167404 


2851 


011610 


100005 




2852 


011612 


005077 


167400 


2853 


011616 


000240 




2854 


011620 


104006 




2855 








2856 


011622 


104013 




2857 


011624 


005077 


167364 


2858 


011630 


104006 




2859 


011632 


104013 





SCOPE 




MOV 


•CT20C 


RTI 




STPCHV 




CT20D 




TST 


IPPS 


BPL 


CT20E1 


CLR 


PPPB 


NOP 




ERROR 





CT20D: SCOPE 
CT20E1I CLP 

ERROR 
SCOPE 



I ERROR INTERRUPT COMES HERE, SET UP 
J INTERRUPT EXIT TO CT20 AND EXIT, 
• SET PTPI VECTOR TO CT20D, 

j TEST ERROR 

fBRANCH IF ERROR BIT NOT SET, 
; LOAD PUNCH BUFFER, 

I BUFFER LOAD WITH PREVIOUS ERROR 
f INTERRUPT FAILED TO INTERRUPT, 
jOK, INTERRUPT OCCURRED, 
jCLEAR PTPI 

I ERROR* ERROR BIT NOT SET, 
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2860 
















2861 
















2862 










.SBTTL 


PRG3 - PUNCH TEST 


2863 


011634 


012767 


01 1662 


167410 


PRG3 I MOV 


tt DTH » KSTART 


; ADDR OF 1ST ROUTINE TO KSTART, 


2864 


011642 


104003 






TYPE 




I TYPE TITLE, 


2865 


011644 


015627 






IM0B 






2866 


011646 


004767 


003370 




JSR 


%7, SWTL 




2867 


011652 


004767 


172312 




JSR 


PCPTMCAL 


j CALIBRATE DELAY RTN WITH PUNCH, 


2868 


011656 


000167 


170026 




JMP 


GETRDY 


;GO GET STARTED 


2869 










I *«*#»**«»*»»»***»«***»****«#*#*#*«*««#*»«*»#***#»»*»**«»«««#**«*»*«*»«#« 


2870 


011662 


000000 






DT0I 




J TEST # 


2871 


011664 


011732 






DTI 




; NEXT TEST 


2872 


011666 


000005 






5 




J I COUNT 


2873 


011670 


01 1672 






DT0A 




; SCOPE ENTRY 


2874 










; «*«»«#«*«*««»******«***##»«**«»»«#*««*#*»**»*»»«#»»«*«*«#«#»*#*«*»«*««** 


2875 










JPUNCH SPECIAL 


BINARY COUNT PATTERN IN PUNCH MODE (FULL SPEED) 


2876 


011672 


012767 


001000 


167476 


DT0A: MOV 


»512,#PCNT 


jSET CHARACTER COUNT TO 512 


2877 


011700 


004567 


000322 




JSP 


%5 i PFRNT 


jGO PUNCH FRONT END AND MODE 


2878 


01 1704 


000000 











f INDICATOR 


2879 


011706 


004767 


172742 




JSR 


%7, InBIN 


; INITIALIZE SPECIAL BINARY COUNT 


2880 


011712 


004767 


172774 




DT0BJ JSR 


%7, GTBIN 


; GET BINARY CHARACTER 


2881 


011716 


004767 


173314 




JSR 


%7,HSPCH 


;GO PUNCH THE CHARACTER 


2882 


011722 


005367 


167450 




DEC 


RCNT 


; DECREMENT CHAR COUNT, 


2883 


01 1726 


001371 






BNE 


DT0B 


; BRANCH IF COUNT NOT YET YET, 


2884 


01 1730 


104013 






SCOPE 






2885 










f 


2886 


011732 


000001 






DTi : i 




; TEST # 


2887 


01 1734 


012012 






DT2 




J NEXT TEST 


2888 


011736 


000005 






5 




•I COUNT 


2889 


01 1740 


011750 






DTI A 




; SCOPE ENTRY 


2890 










j ##*###♦########♦»♦#*######♦##♦###*#**#############*####•♦######♦####♦*♦# 


2891 










IPUNCH SPECIAL 


BINARY COUNT PATTERN IN PUNCH MODE 1 (RANDOM STALLS AFTER 


2892 










JPUNCHING EACH 


CHARACTER. MAXIMUM STALL 47 MILLISECONDS) 


2893 


01 1742 


012767 


177720 


172336 


MOV 


# 177720»STLMSK 


J SET STALL MASK FOR 57(8) MAX 


2894 


011 750 


012767 


001000 


167420 


DTi A I MOV 


#512,, RCNT 


;SET CHARACTER COUNT TO 512, 


2895 


011756 


004567 


000244 




JSR 


%5, PFRNT 


jGO PUNCH FRONT END, AND MODE 1 


2896 


011762 


000001 






1 




; INDICATOR 


2897 


011764 


004767 


172664 




JSP 


%7 , INBIN 


; INITIALIZE SPECIAL BINARY COUNT, 


2898 


011770 


004767 


172716 




DTI B: JSR 


%7 f GTBIN 


» GET BINARY CHARACTER, 


2899 


011774 


004767 


173236 




JSP 


%7,HSPCH 


;GO PUNCH THE CHARACTER, 


2900 


012000 


104005 






STALL 




; RANDOM STALL, 


2901 


012002 


005367 


167370 




DEC 


RCNT 


; DECREMENT CHAR COUNT, 


2902 


012006 


001370 






BNE 


DTi B 


;BRANCH IF COUNT NOT YET 0, 


2903 


012010 


104013 






SCOPE 






2904 










1 #*#*#♦#♦##*###«♦##*♦*♦»#*#*♦##*###♦*#»*##»####»##♦#*##♦♦#####**##*»♦*#** 


2905 


012012 


000002 






DT2! 2 




f TEST # 


2906 


012014 


012114 






UT3 




; NEXT TEST 


2907 


012016 


000005 






5 




;I COUNT 


2908 


012020 


012036 






DT2A 




;SCOPE ENTRY 


2909 










;«**»«*»*•****»*•»»«*#**#*#««*»***#***»**»*****#•********#»«*«*•*«****#*« 


2910 










{PUNCH SPECIAL 


BINARY COUNT PATTERN IN PUNCH MODE 2. 


2911 










; (RANDOM STALL 


BEFORE PUNCHING 


RANDOM LENGTH GROUP OF CHARACTERS), 


2912 










j MAXIMUM STALL 


47 MILLISECONDS, 


. MAXIMUM GROUP LENGTH -15) 


2913 


012022 


012767 


177720 


172256 


MOV 


#177720»STLMSK 


jSET STALL MASK FOR 57(8) MAX , 


2914 


012030 


012767 


177760 


172330 


MOV 


#177760, RCMSK 


J SET CHAR GROUP MASK FOR 17(8) MAX), 


2915 


012036 


012767 


001000 


167332 


DT2 A { MOV 


#512 . # RCNT 


;SET CHARACTER COUNT TO 512, 
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2916 
2917 
2918 
2919 
2920 
2921 
2922 
2923 
2924 
2925 
2926 
2927 
2928 
2929 
2930 
2931 
2932 
2933 
2934 
2935 
2936 
2937 
2938 
2939 
2940 
2941 
2942 
2943 
2944 
2945 
2946 
2947 
2948 
2949 
2950 
2951 
2952 
2953 
2954 
2955 
2956 
2957 
2958 
2959 
2960 
2961 
2962 
2963 
2964 
2965 
2966 
2967 
2968 
2969 
2970 
2971 



SRC 


PRG3 - 


PUNCH Tl 


012044 


004567 


000156 


012050 


000002 




012052 


004767 


172576 


012056 


004767 


172264 


012062 


104005 




012064 


004767 


172622 


012070 


004767 


173142 


012074 


005367 


167276 


012100 


001404 




012102 


005367 


172262 


012106 


001366 




012110 


000762 




012112 


104013 




012114 


000003 




012116 


012206 




012120 


000001 




012122 


012124 





JSP 
2 

JSR 

JSR 

STALL 

JSR 

JSR 

DEC 

BEO 

DEC 

BNE 

BR 

SCOPE 
3 

DT4 
1 

DT3A 



%5, PFRNT 

%7, INBIN 
%7,GRCNT 

%7, GTBIN 

%7,HSPCH 

RCNT 

DT2D 

RNCNT 

DT2C 

DT2B 



;GO PUNCH FRONT END AND MODE 2 
; INDICATOR 

J INITIALIZE SPECIAL BINARY COUNT, 

; GENERATE RANDOM CHARACTER COUNT 

; RANDOM STALL , 

; GET BINARY CHARACTER, 

jPUNCH THE CHARACTER, 

; DECREMENT CHAR COUNT 

JBRANCH IF COUNT IS 0. 

jNOT 0, DECREMENT RANDOM CHAR COUNT, 

;BRANCH IF COUNT NOT YET 0, 

; BRANCH IF COUNT 0, 



; TEST «, 
; NEXT TEST, 
;I COUNT, 
;SCOPE ENTRY, 



012124 


012767 


001000 


167244 


012132 


004567 


000070 




012136 


000003 






012140 


004767 


172510 




012144 


104000 






012146 


011610 






012150 


012767 


000040 


172212 


012156 


004767 


172530 




012162 


004767 


173050 




012166 


005367 


167204 




012172 


001404 






012174 


005367 


172170 




012200 


001366 






012202 


000760 






012204 


104013 






012206 


000004 






012210 


177777 






012212 


000001 






012214 


012216 






012216 


104003 






012220 


020201 






012222 


104010 






012224 


104013 






012226 


012701 


000024 




012232 


005000 






012234 


004767 


172776 




012240 


005301 






012242 


001374 






012244 


012700 


000377 




012250 


004767 


172762 





JPUNCH SPECIAL BINARY COUNT PATTERN IN PUNCH MODE 3, 
I STALL 5 SECONDS, PUNCH 32 CHARACTERS, UNTIL THE ENTIRE PATTERN IS 
{COMPLETED , 



DT3A! 


MOV 


*512, »RCNT 


;SET CHARACTER COUNT TO 512, 




JSR 


%5, PFRNT 


;GO PUNCH FRONT END AND MODE 3 




3 




^INDICATOR, 




JSP 


%7, INBIN 


I INITIALIZE SPECIAL BIN COUNT 


DT3BI 


DELAY 
5000, 




; STALL 5 SECONDS 




MOV 


#32,#RNCNT 


t SET GROUP COUNT TO 32, 


DT3C I 


JSR 


%7, GTBIN 


J GET BINARY CHARACTER 




JSR 


%7,HSPCH 


;PUNCH CHARACTER 




DEC 


RCNT 


i DECREMENT CHAR COUNT 




BEQ 


DT3D 


} BRANCH IF COUNT IS 




DEC 


RNCNT 


; DECREMENT GROUP COUNT 




BNE 


DT3C 


f BRANCH IF COUNT NOT YET 0, 




BR 


DT3B 


; BRANCH IF COUNT 0, 


DT3D! 


SCOPE 







4 

-1 
1 

DT4A 

ITHIS ROUTINE PROVIDES END 
DT4A I TYPE 

P3END 

CHALT 

SCOPE 

jSUBROUTINE TO PUNCH FRONT 



PFRNT: 



MOV 
CLR 
JSR 
DEC 
BNE 
MOV 
JSR 



*20,,%1 

%0 

%7,HSPCH 

%1 

,-6 

#377, %0 
%7,HSPCH 



;TEST#, 
J LAST TEST 
jl COUNT, 

ISCOPE ENTRY POINT, 

OF PASS HALT FOR PRG3, 
f TYPE END OF PASS 

JCOMMON HALT, 

END AND MODE CODE (USED BY PRG3), 

,'PUNCH 20 BLANK CHARACTERS (000) 
; CLEAR R0 
fPUNCH CHAR, 
J DECREMENT Rl 

5 BRANCH IF NOT 20 CHARCTERS YET, 
jPUNCH RUBOUT CHAR (SYNC CHAR), 
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2972 


012254 


012500 




2973 


012256 


004767 


172754 


2974 


012262 


012701 


000004 


2975 


012266 


005000 




2976 


012270 


004767 


172742 


2977 


012274 


005301 




2978 


012276 


001374 




2979 


012300 


000205 




2980 








2981 









MOV 


(5)t,%0 


JSR 


%7,HSPCH 


MOV 


• 4,%1 


CLR 


%0 


JSR 


%7,HSPCH 


DEC 


%1 


BNE 


,-6 


RTS 


%5 



JMOVE MODE CODE TO R0 

JPUNCH MODE CODE, 

IPUNCH 4 BLANK CHARACTERS, 



>EXIT S 
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2982 








2983 








2984 








2985 


012302 


104004 




2986 


012304 


016700 




2987 


012306 


016105 




2988 


012310 


016334 




2989 


012312 


017025 




2990 


012314 


177777 




2991 


012316 


000000 




2992 


012320 


004767 


002716 


2993 


012324 


004767 


171370 


2994 


012330 


012767 


000372 


2995 


012336 


012767 


000012 


2996 


012344 


004767 


170532 


2997 


012350 


005767 


167024 


2998 


012354 


001007 




2999 


012356 


005367 


167040 


3000 


012362 


001412 




3001 


012364 


005367 


167030 


3002 


012370 


001365 




3003 


012372 


000403 




3004 


012374 


005367 


167020 


3005 


012400 


001356 




3006 


012402 


104007 




3007 


012404 


017747 




3008 


012406 


000750 




3009 


012410 


004767 


170466 


3010 


012414 


005767 


166760 


3011 


012420 


001004 




3012 


012422 


005367 


166772 


3013 


012426 


001370 




3014 


012430 


000764 




3015 


012432 


022767 


000377 


3016 


012440 


001416 




3017 


012442 


012767 


000377 


3018 


012450 


004567 


172400 


3019 


012454 


001362 




3020 


012456 


020011 




3021 


012460 


004567 


172370 


3022 


012464 


001400 




3023 


012466 


020024 




3024 


012470 


104007 




3025 


012472 


017764 




3026 


012474 


000715 




3027 


012476 


004767 


170400 


3028 


012502 


026727 


166672 


3029 


012510 


101407 




3030 


012512 


004567 


172336 


3031 


012516 


001400 




3032 


012520 


020103 




3033 


012522 


104007 




3034 


012524 


020031 




3035 


012526 


000700 




3036 


012530 


012767 


000004 


3037 


012536 


005067 


166620 



, SBTTL PRG4 - PUNCH VERIFY PROGRAM 
JTHIS PROGRAM VERIFIES TAPE PRODUCED BY PRG3, 
J ANY ERRORS FOUND ARE REPORTED t 



167062 ET0AI 
167056 ET0BI 
ET0C : 



166740 ET0G: 
166712 



166662 ET0II 



TYPES 




IM20 




IM4S 




IM6 




IM23 




-1 




HALT 




JSR 


%7,SWTL 


JSP 


PC , RTMCAL 


MOV 


#250,rCTRA 


MOV 


#10., CTRB 


JSR 


%7 , BREAD 


TST 


CRBUF 


BNE 


ET0D 


DEC 


CTRB 


BEO 


ET0F 


DEC 


CTRA 


BNE 


ET0C 


BR 


ET0E 


DEC 


CTRA 


BNE 


ET0B 


ERROR1 




EM3 




BR 


ET0A 


JSR 


%7, BREAD 


TST 


CRBUF 


BNE 


ET0G 


DEC 


CTRA 


BNE 


ET0F 


BR 


ET0E 


CMP 


#377, CRBUF 


BEQ 


ET0K 


MOV 


#377, ERRT 


JSR 


%5, ACNV4 


ERRT 




ESB 
JSR 


%5,ACNV4 


CRBUF 




EWAS 




ERROR1 




EM4 




BR 


ET0A 


JSR 


%7 , BREAD 


CMP 


CRBUF, #3 


BLOS 


ET0I 


JSR 


%5, ACNV4 


CRBUF 




FWAS 




ERROR1 




EMS 




BR 


ET0A 


MOV 


#4, CTRA 


CLR 


ERRT 



I TYPE TITLE AND INSTRUCTIONS 



;CALIBRATE DELAY RTN WITH READER, 
J250 TO CTRA, (TOTAL CHAR COUNT), 

; READ CHAR 

| BRANCH IF NON-ZERO CHAR, 

J0 CHAR. DECREMENT CTRB 

; BRANCH IF 10 CONSECUTIVE 0'S READ, 

>NO, DECREMENT CTRA , 

', BRANCH IF NOT YeT 250 CHARS READ. 

}250 CHARS READ, SYNE ERROR, 

; DECREMENT CTRA 

; BRANCH IF NOT 250 CHARS READ YET, 
jSYNC ERROR, 250 CHARS READ WITHOUT 
jA SUCCESSFUL SYNC, 
jGO TRY AGAIN, 
J READ CHAR 

; BRANCH IF NON-ZERO CHAP, 
; DECREMENT CTRA 

J BRANCH IF NOT 250 CHARS READ YET, 
J250 CHARS READ, SYNC ERROR, 
ICOMPARE CHAR READ TO 377. 
J377.0K, 

JNOT 377, LEADER ERROR, SET UP FOR 
f ERROR TYPEOUT, 



j LEADER ERROR, SHOULD BE 377, 

| START OVER 
t READ CHAR, 

JCOMPARE CHAR READ TO 3, 

I BRANCH IF SAME OR LOWER, 

J ERROR, CONVERT DATA READ TO ASCII, 

JSET UP FOR TYPEOUT. 

j LEADER ERROR, SHOULD BE BETWEEN 

;0 AND 3, 

J START OVER, 

;4 TO CTRA (CHAR COUNT) 

f CLEAR ERRT, EXPECTED CHAR IS 0, 
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3038 


012542 


004767 


170334 




ET0JI 


JSR 


%7, BREAD 


• READ CHAR, 


3039 


01 2546 


004767 


000050 






jgp 


%7, ECHK 


1 GO CHECK CHAR READ ( 






005367 


1 66642 






DEC 


CTRA 


{DECREMENT CTRA 




01 2556 


001 371 








BNE 


ET0J 


{BRANCH IF NOT 4 CHARS READ YET, 


t nA * 


1 2560 


004767 


172070 






JSR 


|7, INBIN 


; INITIALIZE SPECIAL BINARY COUNT, 


3043 






0101 1 nan 






MOV 


itS 1 2 . PTRA 


{SET CHAR COUNT TO 512, 


3044 


01 2572 


CTCT A "7 ft TP 






ET0K | 




4 7 . RDE&D 
% 1 t Dlx&ny 


{ READ CHAR, 


3045 


012576 


BOATS 7 


1721 10 






JSR 


%7 , GTBIN 


{GET BIN CHAR AND STORE AT 


3046 


012002 


01 0067 












* prrt t HOT.ns FYPirr»Tim niTi i 

J &r\P l v nwUl/O tAr C^, I 61/ UnltKJ i 


3047 


012606 


004767 


000010 






JSR 


%7,ECHK 


{GO CHECK CHAR READ, 
{DECREMENT CHAR COUNT 




0126 1 2 




1 66602 






DEC 




3049 


012616 


001 365 








BNE 


ET0K 


{ BRANCH IF NOT 512 CHARS READ YET, 


3050 


012620 


000643 








BR 


ET0A 


; DONE, START OVER, 


3051 


012622 


026767 


166552 


166532 


ECHKS 


CMP 


crbuf,errt 


,'COMPARE CHAR READ AGAINST EXPECTED 


3052 


012630 


001412 








BEO 


ECHKA 


{ BRANCH IF EQUAL, 


3053 


012632 


004567 


172216 






JSR 


%5»ACNV4 


{CONVERT EXPECTED DATA TO ASCII, 


3054 


012636 


001362 








ERRT 






3055 


012640 


017655 








ASB 






3056 


012642 


004567 


172206 






JSR 


%5,ACNV4 


{CONVERT DATA READ TO ASCII, 


3057 


012646 


001400 








CRBUF 






3058 


012650 


017670 








AWAS 






3059 
3060 


012652 
012654 


104007 
017632 








ERRORl 
EMI 




{ERROR, DATA ERROR, 


3061 


012656 


000207 






ECHKAI 


RTS 


%7 


{EXIT 
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3062 








3063 








3064 








3065 








3066 








3067 


012660 


104004 




3068 


012662 


017252 




3069 


012664 


016334 




3070 


012666 


017025 




3071 


012670 


177777 




3072 


012672 


000000 




3073 


012674 


004767 


002342 


3074 


012700 


004767 


171264 


3075 


012704 


004767 


171744 


3076 


012710 


012767 


177600 


3077 


012716 


005067 


000312 


3078 


012722 


005067 


000310 


3079 


012726 


104011 




3080 


012730 


013240 




3081 


012732 


104012 




3082 


012734 


012766 




3083 


012736 


004767 


167700 


3084 


012742 


004767 


172236 


3085 


012746 


004767 


172006 


3086 


012752 


010177 


166240 


3087 


012756 


052777 


000100 


3088 


012764 


000777 




3089 


012766 


005777 


166222 


3090 


012772 


100004 




3091 


012774 


104003 




3092 


012776 


017456 




3093 


013000 


104010 




3094 


013002 


000771 




3095 


013004 


105777 


166204 


3096 


013010 


100402 




3097 


013012 


104007 




3098 


013014 


020161 




3099 


013016 


005267 


000212 


3100 


013022 


004767 


171732 


3101 


013026 


010177 


166164 


3102 


013032 


105767 


000200 


3103 


013036 


100414 




3104 


013040 


026727 


000170 


3105 


013046 


103001 




3106 


013050 


000002 




3107 


013052 


052767 


000200 


3108 


013060 


052777 


000101 


3109 


013066 


000002 




3110 


013070 


026727 


000140 



170 000024 



.SBTTL 
{ *************** 

J PRG5 - COMBINED 
t ************** 

{BINARY COUNT PA 
PRG5 ! TYPES 

IM26 

IM6 

IM23 

-1 

HALT 
JSR 
JSR 
JSR 
MOV 
CLR 
CLR 
STRDRV 
WNZERO 
STPCHV 
PBIN 
JSR 
JSP 
JSR 
MOV 
BIS 
BR 
TST 
BPL 
TYPE 
SM3 
CHALT 
BR 

TSTB 
BMI 

ERRORl 
EMU 
INC 
JSR 
MOV 
TSTB 
BMI 
CMP 
BHIS 
RTI 
BIS 
BIS 
RTI 
CMP 



PRG5 THROUGH PRG13 

********************************************************* 

READER PUNCH TEST, USES SPECIAL 
********************************************************* 

TTEPN, 

{ TYPE TITLE AND INSTRUCTIONS, 



PBIN: 



%7,SWTL 
PC,PTMCAL 
%7, INBIN 
8177600, STLMSK 
PCHCNT 
RBUSY 



%7,ARRDY 
%7,CPRDY 
%7,GTBINp 
%1,©PPB 
«BIT6,PPPS 



0PPS 
PBNA 



PBIN 
SPPS 
PBNB 



PCHCNT 
%7,GTBINP 
%1,9PPB 
RBUSY 
PBINA 

PCHCNT, #20. 
• ♦4 

SBIT7, RBUSY 
«101,0PRS 

PCHCNT, #40, 



{CALIBRATE DELAY RTN wITH PUNCH, 

{INITIALIZE BINARY COUNTS, 

{ SET MAX, STALL DELAY, 

{CLEAR PUNCH COUNT 

{CLEAR READER bUSY INDICATOR 

{ SET PTRI VECTOR, 

{ SET PTP1 VECTOR, 

{CHECK FOR READER READY 
{CHECK FOR PUNCH READY 
{GET BIN CHARACTER 
{PUNCH IT 
{ ENABLE PTPI 

{ TEST FOR ERROR, 
{BRANCH IF NO ERROR, 
{TYPE PUNCH NOT READY 
{ MESSAGE, 

{RECHECK FOR ERROR, 

{CHECK FOR DONE, 

{BRANCH IF DONE SET, 

{ERROR, FALSE PUNCH INTERRUPT, 

{INCREMENT PUNCH COUNT, 
{ GET BINARY CHARACTER 
{ENABLE PUNCH 

{CHECK READER BUSY INDICATOR 

{BRANCH IF READER BUSY 

{ NOT BUSY, PUNCH COUNT 20 YET? 

{BRANCH IF PCHNT 20 OR MORE, 

{NOT 20 YET, EXIT INTERRUPT 

{ SET READER BUSY 

{ENABLE PTRI AND READER, 

{ EXIT INTERRUPT. 

{PUNCH COUNT LARGER THAN 40? 
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311! 


013076 


101402 








BLOS 


PBINB 


3112 


013100 


005077 


166110 






CLR 


3PPS 


3113 


013104 


000002 






PBZNBi 


RTI 




3114 


013106 


003777 


166076 




CREADI 


TST 


9PRS 


3115 


013112 


100003 








BPL 


CRDA 


3116 


013114 


004767 


167576 






JSR 


%7, TSM2 


3117 


013120 


000772 








BR 


CREAD 


3118 


013122 


105777 


166062 




CPDAl 


TSTB 


@PRS 


3119 


013126 


100402 








BMI 


CRDAA 


3120 


013130 


104007 








ERRORl 




3121 


013132 


020140 








EM10 




3122 


013134 


017767 


166052 


166236 


CRDAAl 


MOV 


9PRB, CRBUF 


3123 


013142 


005367 


000066 






DEC 


PCHCNT 


3124 


013146 


026727 


000062 


000037 




CMP 


PCHCNT, #31 , 


312S 


013154 


101024 








BHI 


CREADC 


3126 


013156 


032777 


000100 


166030 




BIT 


#BIT6, f PPS 


3127 


013164 


001003 








BNE 


CREADA 


3128 


013166 


052777 


000100 


166020 




BIS 


#8 JT6, $PPS 


3129 


013174 


005767 


000034 




CREAOAl 


TST 


PCHCNT 


3130 


013200 


001006 








BNE 


CREADB 


3131 


01 3202 


042767 


000200 


000026 




BIC 


#BIT7,RBUSY 


3132 


013210 


005077 


165774 






CLR 


gPRS 


3133 


013214 


000207 








RTS 


%7 


3134 


013216 


003767 


000014 




CPEADB j 


TST 


RBU5Y 


3133 


013222 


100401 








BMI 


CREADC 


3136 


013224 


104003 








STALL 




3137 


01 3226 


005277 


165756 




CPEADCt 


INC 


&PRS 


3138 


013232 


000207 








RTS 


%7 


3139 


013234 


000000 






PCHCNTi 


OPEN 




3140 


01 3236 


000000 






RBUSYl 


OPEN 




3141 


013240 


004767 


177642 




wnzero: 


JSR 


%7#CREAD 


3142 


013244 


005767 


166130 






TST 


CRBUF 


3143 


013250 


001001 








BNE 


. + 4 


3144 


013252 


000002 








RTI 




3145 


013254 


012777 


013272 


165736 




MOV 


*RBINf iPDRVTP 


3146 


013262 


012767 


000003 


166126 




MOV 


#3# ERCTR 


3147 


013270 


000402 








BR 


RBINA 


3148 


013272 


004767 


177610 




RBINj 


JSR 


%7, CREAD 


3149 


013276 


004767 


171410 




RBINAl 


JSR 


%7# GTBIN 


3150 


013302 


020067 


166072 






CMP 


%0, CRBUF 


3151 


013306 


001001 








BNE 


PBINB 


3152 


013310 


000002 








RTI 




3153 


013312 


010067 


166044 




RBINBl 


MOV 


%0* ERRT 


3154 


013316 


004567 


171532 






JSR 


%5, ACNV4 


3155 


013322 


001362 








ERRT 




3156 


013324 


017655 








ASB 




3157 


013326 


004567 


171522 






JSR 


%5, ACNV4 


3158 


013332 


001400 








CRBUF 




3159 


013334 


017670 








AWAS 




3160 


013336 


104007 








ERRORl 




3161 


013340 


017632 








EMI 




3162 


013342 


005367 


166050 






DEC 


ERCTR 


3163 


013346 


001001 








BNE 


RBINC 


3164 


013350 


000002 








RTI 




3165 


013352 


052767 


100000 


177656 


RBINCi 


BIS 


#BIT15, RBU5Y 


3166 


013360 


012777 


013402 


165632 




MOV 


#RBIND» 8RDRVTR 



; BRANCH IF NOT LARGER 
I LARGER, DISABLE PTPI 
jEXIT INTERRUPT, 
ICHECK FOR ERROR, 
I BRANCH IF NO ERROR, 
J ERROR, TYPE MESSAGE, 

I TEST FOR DONE, 

jBRANCH IF DONE SET, 

; ERROR , FALSE READER INTERRUPT, 

{CHARACTER READ TO CRBUF 



jPUNCH COUNT GREATER THAN 31? 
JNO, 

JPTPI ENABLED? 
»NO, ENABLE PTPI, 

;PUNCH COUNT 0? 

;YES. CLEAR READER BUSY, 

; DISABLE PTRI, 

FEXIT, 

j TEST BUSY INDICATOR 

; STALL? 

JYES, 

; ENABLE READER 
jEXIT, 



? READ CHARACTER 

JCHECK CHARACTER 

t BRANCH IF NON»ZERO CHAR, 

jZERO, EXIT INTERRUPT, 

I SET READER VECTOR TO READ BINARY 

?COUNT, SET ERROR COUNTER TO 3, 

i READ CHARACTER, 

J GET BINARY CHARACTER 

;COMPARE AGAINST ChAR READ, 

J BRANCH IF NOT SAME, 

J SAME EXIT INTERRUPT, 

jMOVE EXPECTED CHAR TO ERRT 

jCONVERT EXPECTED CHAR TO ASCII 



^CONVERT RECEIVED CHAR TO ASCII 



JERROP MESSAGE, D*TA ERROR, 

»3RD ERROR? 
J YES • 

;NO, EXIT INTERRUPT. 

^DISABLE STALLS, 

JSET PTR VECTOR TO RBIND, 
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3167 
3168 
3169 
3170 
3171 
3172 
3173 
3174 
3175 
3176 
3177 
3178 
3179 
3180 
3181 
3182 
3183 
3184 
3185 



3211 
3212 
3213 



SRC 


PRG5 THROUGH 1 


PRG13 








013366 


012767 


000003 


166022 


MOV 


#3,ERCTR 


JUSE ERCTR AS CHARACTER COUNTER, 


013374 


012700 


001402 




MOV 


tCHRl ,%0 


t ADDR OF CHR1 TO %0 


013400 


000002 






RTI 




?EXIT INTERRUPT 


013402 


004767 


177500 


RBIND J 


JSR 


%7 r CREAD 


7 READ CHARACTER 


013406 


016720 


165766 




MOV 


CRBUF, (0)+ 


jSTORE CHARACTER STARTING AT CHR1 


013412 


005367 


166000 




DEC 


ERCTR 


*3RD CHARACTER? 


013416 


001401 






BEQ 


,♦4 


lYES, 


013420 


000002 






RTI 




;EXIT INTERRUPT, NOT 3RD YET, 


013422 


004767 


171114 




JSP 


%7,SYNCA 


;GO SYNC THE READER, 


013426 


000751 






BR 


RBINC 


?NO SYNC, TRY AGAIN, 


013430 


012777 


013272 


165562 


MOV 


#RBIN, 9RDRVTR 


j SYNCED, SET READER VECTOR TO RBIN 


013436 


012767 


000003 


165752 


MOV 


#3, ERCTR 


JSET ERROR COUNT TO 3, 


013444 


042767 


100000 


177564 


BIC 


«BIT15,RBUSY 


? ENABLE STALLS, 


013452 


000002 






RTI 




fEXlT INTERRUPT, 



3186 


013454 


104004 






PRG6 1 


TYPES 




3187 


013456 


017003 








IM21 




3188 


013460 


016620 








IM16 




3189 


013462 


177777 








-I 




3190 


013464 


012767 


000004 


165700 


is: 


MOV 


#4, COUNT 


3191 


013472 


012767 


020425 


001224 




MOV 


»8CH1,TLX 


3192 


01 3500 


104014 








OPTSEL 




3193 


013502 


022767 


000004 


165662 




CMP 


#4, COUNT 


3194 


013510 


001765 








BEQ 


1$ 


3195 


013512 


116767 


165646 


000064 




MOVB 


TMP1,PUNC1 


3196 


013520 


012767 


000004 


165644 


2(1 


MOV 


#4, COUNT 


3197 


013526 


012767 


020463 


001170 




MOV 


MCH2,TLX 


3198 


013534 


104014 








OPTSEL 




3199 


013536 


022767 


000004 


165626 




CMP 


#4, COUNT 


3200 


013544 


001765 








BEQ 


28 


3201 


013546 


116767 


165612 


000031 




MOVB 


TMpi,PUNCl+l 


3202 


013554 


104003 








TYPE 




3203 


013556 


017025 








IM23 




3204 


013560 


000000 








HALT 




3203 


013562 


116700 


000016 




PRG6AI 


MOVB 


PUNC1,%0 


3206 


013566 


004767 


171444 






JSR 


%7,H8PCH 


3207 


013572 


116700 


000007 






MOVB 


PUNCl+1,%0 


3208 


013576 


004767 


171434 






JSR 


%7,H8PCH 


3209 


013602 


000767 








BR 


PRG6A 


3210 


013604 


000000 






PUNCH < 


.WORD 





?PRG6 - PUNCHES CONTINUOUSLY ON PTP THE 2 CHARACTERS SELECTED 
;«»»»««»»#»*«»»»»»«««»*«»««»»«»«»«»««««««»«»»»»» # « ####### « ######## » ###### 

t TYPE TITLE AND INSTRUCTIONS, 



3214 


013606 


104003 






PRG7I 


TYPE 




3215 


013610 


017014 








IM22 




3216 


013612 


012767 


000004 


165552 


281 


MOV 


#4, COUNT 


3217 


013620 


012767 


020617 


001076 




MOV 


I8RD1 * TLX 


3218 


013626 


104014 








OPTSEL 




3219 


013630 


022767 


000004 


165534 




CMP 


#4, COUNT 


3220 


013636 


001765 








BEQ 


28 


3221 


013640 


016767 


165520 


165556 




MOV 


TMP1,CTRC 


3222 


013646 


012767 


000004 


165516 


181 


MOV 


f4, COUNT 



j PUNCH FIRST CHARACTER, 
I PUNCH SECOND CHARACTER, 

| REPEAT, 

)««««»«»»««««»»««««««««#«**«««*«»«»««««««««*«««« # ««»« # « ############ « #### « 

|PRG7 - READS AND CHECKS TAPE PUNCHED WITH 2 CHARACTERS SELECTED 
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3223 


01 3654 


012767 


020654 


001042 




MOV 


#SRD2r TLX 




3224 


01 3662 


10401 4 








OPTSEL 






322S 


013664 


022767 


000004 


165500 




CMP 


#4, COUNT 




3226 


013672 


001765 








BEQ 


1 $ 




3227 


01 3674 


016767 


165464 


165524 




MOV 


TMP1 i CTRD 




3228 


013702 


104004 








TYPES 






3229 


013704 


016334 








IM6 






3230 


013706 


017025 








IM23 






3231 


013710 


177777 








-1 






3232 


013712 


000000 








HALT 






3233 


013714 


004767 


001322 






JSR 


%7,SWTL 




3234 


013720 


004767 


167156 




HT0AI 


JSR 


%7, BREAD 


I MATCH CHARS ON TAPE AGAINST EXPECTED CHARS 


3235 


013724 


016767 


165450 


165450 




MOV 


CRBUF, CHR1 


; READ CHAR INTO CHRl 


3236 


013732 


004767 


167144 






JSR 


%7, BREAD 


; READ CHAR 


3237 


013736 


016767 


165436 


165440 




MOV 


CRBUF#CHR2 


? INTO CHR2 


3238 


013744 


026767 


165432 


165452 




CMP 


CHRl, CTRC 


; (CHRl )*(CTRC) ? 


3239 


013752 


001040 








BNE 


HT0E 


J NO, 


3240 


013754 


026767 


165424 


165444 




CMP 


CHR2,CTRD 


{YES, (CHR2)=(CTRDJ? 


3241 


013762 


001061 








BNE 


HT0G 


{NQ. MATCH ERROR, 

{YES, NEXT CHAR SHOULD a (CTRC) (CTRBsg) 


3242 


013764 


005067 


165432 






CLP 


CTRB 


3243 


013770 


012767 


000003 


165420 


HT0B{ 


MOV 


#3,ERCTR 


{3 TO ERROR COUNTER, 


3244 


013776 


004767 


167100 




HT0C| 


JSR 


%7, BREAD 


; READ CHAR 


3245 


014002 


005167 


165414 






COM 


CTRB 


{COMPLEMENT CHAR INDICATOR 


3246 


014006 


001436 








BEQ 


HT0F 


{BRANCH IF EXPECTED CHAR SHOULD s (CTRD) 


3247 


014010 


026767 


165364 


165406 




CMP 


CRBUF, CTRC 


{ (CRBUF) * (CTRC) ? 


3248 


014016 


001767 








BEQ 


HT0C 


7 YES, 


3249 


014020 


004567 


171030 






JSR 


%5, ACNV4 


{NO, (CTRC) TO ASB IN ASCII FORM, 


3250 


014024 


001424 








CTRC 






3251 


014026 


017655 








ASB 






3252 


014030 


004567 


171020 




HT0DI 


JSR 


%5 , ACNV4 


{ (CRBUF) TO AwAS IN ASCII FORM , 


3253 


014034 


001400 








CRBUF 






3254 


014036 


017670 








AWAS 






3255 


014040 


104007 








ERROR1 




jERROP 1 CALL, TYPE DATA ERROR MESSAGE, 


3256 


014042 


017632 








EMI 






3257 


014044 


005367 


165346 






DEC 


ERCTR 


{3 ERRORS? 


3258 


01 4050 


001723 








BEQ 


HT0A 


I YES, START ALL OVER, 


3259 


01 4052 


000751 








BR 


HT0C 


{NO, CONTINUE READING, 


3260 


01 4054 


026767 


165322 


165344 


HT0Et 


CMp 


CHRl , CTRD 


{(CHRl) = (CTRD)? 


3261 


014062 


001021 








BNE 


HT0G 


;NO, MATCH ERROR, 


3262 


01 4064 


026767 


165314 


165332 




CMp 


CHR2,CTRC 


J YES, (CHR2) = (CTRC)? 


3263 


01 4072 


001015 








BNE 


HT0G 


{NO, MATCH ERROR, 

; YES, NEXT CHAR SHOULD s (CTRD) 


3264 


014074 


012767 


177777 


165320 




MOV 


# -1 , CTRB 


3265 


014102 


000732 








BR 


HT0B 


{GO START READING, 


3266 


014104 


026767 


165270 


165314 


HT0F! 


CMP 


CRBUF, CTRD 


{(CRBUF) s (CTRD) ? 


3267 


014112 










BEQ 


HT0C 


{YES, OK, CONTINUE READING, 


3268 


014114 


004567 


170734 






JSR 


%5, ACNV4 


{NO, (CTRD) TO ASB IN ASCII FORM, 


3269 


014120 


001426 








CTRD 






3270 


014122 


017655 








ASB 






3271 


014124 


000741 








BR 


HT0D 


{GO GENERATE ERROR MESSAGE, 


3272 


014126 


104007 






HT0G { 


ERROPl 




{ MATCH ERROR. UNABLE TO MATCH UP 


3273 


014130 


0201 10 








EM6 




j 2 CONSECUTIVE CHARACTERS FROM READER 


3274 


014132 


000672 








BR 


HT0A 


JTO CHARACTERS READ FROM SR. 


3275 










;««**»«**«*»«»**«**«**»*»*»##«•*»»**««■#**##»»»»«»#»»**»**»*»**»**»****#«# 


3276 










;PRG10 


- READ X 


CHARACTERS, 


STALL Y MILLISECONDS, 


3277 










j 


3278 


014134 


005067 


165226 




PPG10! 


CLR 


TMP2 
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3279 


014140 


104003 








TYPE 






3280 


014142 


016643 








IM17 






3281 


014144 


012767 


000004 


165220 


IS: 


MOV 


#4, COUNT 




3282 


014152 


012767 


020375 


000544 




MOV 


#SNUMCR,TLX 




3283 


014160 


104014 








OPTSEL 






3284 


014162 


022767 


000004 


165202 




CMP 


#4, COUNT 




3285 


014170 


001765 








BEQ 


1$ 




3286 


014172 


116767 


165166 


165166 




MOVB 


TMP1,TMP2 




3287 


014200 


012767 


000004 


165164 


2$: 


MOV 


#4, COUNT 




3288 


014206 


012767 


020357 


000510 




MOV 


#SSTALL, TLX 




3289 


014214 


104014 








OPTSEL 






3290 


014216 


022767 


000004 


165146 




CMP 


84, COUNT 




3291 


014224 


001765 








BEQ 


2$ 




3292 


014226 


116767 


165132 


165133 




MOVB 


TMP1 ,TMP2+1 




3293 


014234 


104003 








TYPE 






3294 


014236 


017025 








IM23 






3295 


014240 


000000 








HALT 






3296 


014242 


004767 


167452 






JSR 


PCPTMCAL 


{CALIBRATE DELAY RTN WITH READER, 


3297 


014246 


005067 


000042 




ita: 


CLR 


ITY 




3298 


014252 


005067 


000042 






CLR 


ITX 




3299 


014256 


116767 


165105 


000030 




MOVB 


TMP2+1,ITY 


{MOVE STALL COUNT TO ITY, 


3300 


014264 


116767 


165076 


000026 




MOVB 


TMP2 , ITX 


}MOVE CHAR COUNT TO ITX , 


3301 


014272 


004767 


166364 




Itb : 


JSR 


%7 , AREAD 


{ FETCH CHARACTER. 


3302 


014276 


105367 


000016 






DECB 


ITX 


{ DECREMENT CHAR COUNT, 


3303 


014302 


001373 








BNE 


ITB 


{ BRANCH IF COUNT NOT 0, 


3304 


014304 


005767 


000004 






TST 


ITY 


; DELAY COUNT « 0? 


3305 


014310 


001756 








BEQ 


ITA 


{ BR IF YES, 


3306 


014312 


104000 








DELAY 




; READ CHARS, STALL NOW, 


3307 


014314 


000000 






ITYI 


OPEN 




; STALL COUNT IN MSECS. 


3308 


014316 


000753 








BR 


ITA 


{REPEAT 


3309 


014320 


000000 






itx: 


OPEN 






3310 










; **»»*»»**««»*«*«*»•***»«»«*«#«»««***»«**«»«»*#«»«««*#«*#»«**»««**#«»#»** 


3311 










JPRGH, 


PUNCH SPECIAL BINARY 


COUNT PATTERN TEST TApE 


3312 










j *»««***»»«****»#*«#«»#*»««**«#««#«»»#»«««#*»«»##*»#««««»**»»#*«»«***#**« 


3313 


014322 


104004 






PRGii: 


TYPES 




j TYPE TITLE AND INSTRUCTIONS, 


3314 


014324 


015653 








IM0C 






3315 


014326 


016620 








IM16 






3316 


014330 


017025 








IM23 






3317 


014332 


177777 








•1 






3318 


014334 


000000 








HALT 




{WAIT FOR USER 


3319 


014336 


012746 


000024 






MOV 


#20, ,-(6) 


J PUNCH 20 BLANK CHAR, LEADER 


3320 


014342 


005000 








CLR 


%0 




3321 


014344 


004767 


170666 




PRGllAi 


JSR 


%7,HSPCH 




3322 


014350 


005316 








DEC 


9%6 




3323 


014352 


001374 








BNE 


PRG11A 




3324 


014354 


004767 


170274 






JSR 


%7,INBIN 


) INITIALIZE SPECIAL BINARY COUNT 


3325 


014360 


004767 


170326 




PRG11B! 


JSR 


%7,GTBIN 


} GET BINARY CHARACTER, 


3326 


014364 


004767 


170646 






JSR 


%7,HSPCH 


{PUNCH CHARACTER 


3327 


014370 


000773 








BR 


PRG1 IB 


{REPEAT, 


3328 










;»««»»*##**»«»•««»*#»*«**«#»«««*»**#«««»»*»»•»*»»*«#«««*#***«*«*»**«»#«*« 


3329 










IPRG12 


- READER 


SPEED PRINT 


LOOP 


3330 










;«»*««»«»«»«***»*»»««*«»«*«*««»#*****#*»«#«* »»««««»»#«**«#* »#«##»#«««#**« 


3331 


014372 


012767 


000004 


164772 


PRG121 


MOV 


#4, COUNT 




3332 


014400 


012767 


020340 


000316 




MOV 


*$TIME,TLX 




3333 


014406 


104014 








OPTSEL 






3334 


014410 


104003 








TYPE 
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3335 


014412 


020521 








SSKEY 






3336 


014414 


000000 








HALT 






3337 


014416 


005067 


165002 




KTA i 


CLR 


CTRC 


; CLEAR WORK REGISTERS 


3338 


01 4422 


005067 


164774 






CLR 


CTRB 




3339 


014426 


005077 


164600 






CLR 


8TKB 




3340 


014432 


032767 


000200 


164724 




BIT 


#BIT7,TMP1 




3341 


014440 


001403 








BEQ 


KTB 


?300 SECOND TIMING IS DESIRED 


3342 


014442 


012767 


000416 


164754 




MOV 


#270. ,CTRC 


jSET UP FOR DESIRED TIME BASE, 


3343 


014450 


062767 


000036 


164746 


KTB1 


ADD 


#30,, CTRC 




3344 


014456 


000407 








BR 


KTD 




3345 


01 4460 


004767 


166176 




KTCI 


JSR 


%7, AREAD 


J READ CHARACTER, 


3346 


014464 


005367 


164730 






DEC 


CTRA 


; DECREMENT CTRA 


3347 


014470 


001005 








BNE 


KTE 


; BRANCH IF CTRA NOT 0, 


3348 


014472 


005267 


164724 






INC 


CTRB 


JCTPA0.+1 TO CTRB. 


3349 


014476 


016767 


164722 


164714 


KTD ! 


MOV 


CTRC, CTRA 


J RELOAD CTRA, 


3350 


0K r 4 


105777 


164520 




KTEl 


TSTB 


§»TKS 




3351 


■ l%ji0 


100363 








BPL 


KTC 


f NO, 


3352 


014512 


004567 


000100 




KTFl 


JSR 


%5,CPKPL 


;GO TYPE OUT DEVICE SPEED, 


3353 


014516 


017501 








SM4 






3354. 


014520 


000000 








HALT 






3355 


014522 


000723 








BR 


PRG12 




3356 










? *###*#####•###########**#######♦»############♦##*###♦########♦#♦######## 


3357 










IPRG13 


- PUNCH 


SPEED PRINT LOOP 




3358 










; **#####*#*#**#*###### ***########*##**###»########*#############*##*##### 


3359 


014524 


104004 






PRGU! 


TYPES 




; TYPE TITLE AND INSTRUCTIONS, 


3360 


014526 


017221 








IM25 






3361 


014530 


016620 








IM16 






3362 


014532 


020521 








SSKEY 






3363 


01 4534 


177777 








-1 






3364 


014536 


000000 








HALT 




; HALT , WAIT FOR USER, 


3365 


014540 


005067 


164656 




LTA ! 


CLR 


CTRB 


; CLEAR WORK AREAS. 


3366 


014544 


005000 








CLR 


%0 




3367 


014546 


005077 


164460 






CLR 


0TKB 




3368 


01 4552 


000407 








BR 


LTC 




3369 


01 4554 


004767 


170456 




LTBS 


JSR 


%7,HSPCH 


;punch A 


3370 


014560 


005367 


164634 






DEC 


CTRA 


j DECREMENT CTRA 


3371 


014564 


001005 








BNE 


LTD 


; BRANCH IF CTRA NOT 


3372 


014566 


005267 


164630 






INC 


CTRB 


f INCREMENT CTRB . 


3373 


014572 


012767 


000074 


164620 


LTCl 


MOV 


#60,, CTRA 


jMOVE 60 TO CTRA 


3374 


014600 


105777 


164424 




LTD : 


TSTB 


iTKS 


JTIME UP? 


3375 


01 4604 


100363 








BPL 


LTB 


?NO, 


3376 


01 4606 


004567 


000004 




lte: 


JSR 


%5,CPKPL 


;GO TYPE OUT DEVICE SPEED, 


3377 


014612 


017523 








SM5 






3378 


014614 


000750 








BR 


LTA-2 


;GO HALT AND READY UP FOR NEXT TIME. 








nana "5 i 




CPkpli 


MOV 


(5)*, CPKPLA 


JMOVE ADDR OF 1ST MESSAGE TO CPKPLA. 


3380 


014622 


004567 


170430 






JSR 


%5,BDCNV 


JCONVERT (CTRB) TO DECIMAL ASCII. 


3381 


014626 


001422 








CTRB 






3382 


014630 


004567 


170332 






JSR 


%5,BMOVE 


•MOVE 3 DECIMAL CHARS TO PRINTOUT AREA, 


3383 


014634 


015260 








DEC VAL+2 




3384 


014636 


017544 








ACPS 






3385 


014640 


000003 








3 






3386 


014642 


104004 








TYPES 




; T YPE DEVICE SPEED, 


3387 


014644 


000000 






CPKPLA! 


OPEN 




3388 


014646 


017544 








ACPS 






3389 


014650 


177777 








-1 






3390 


014652 


300205 








PTS 


%5 


jEXIT, 
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3391 
















3392 
















3393 


014654 


005077 


164350 




TTINj 


CLR 


PTKS 


3394 


01 4660 


005077 


164346 






CLR 


9TKB 


3395 


014664 


005067 


164504 






CLR 


TIB 


3396 


01 4670 


105777 


164334 




ISi 


TSTB 


9TKS 


3397 


014674 


100375 








BPL 


IS 


3398 


014676 


017767 


164330 


164470 




MOV 


£TKB, TIB 


3399 


014704 


105777 


164324 




25: 


TSTB 


&TPS 


3400 


014710 


100375 








BPL 


2S 


3401 


01 4712 


1 16777 


164456 


164316 




MOVB 


TIB.iaTPB 


3402 


014720 


000002 








RTI 




3403 
















3404 
















3405 


014722 


104003 






OPTS ! 


TYPE 




3406 


014724 


000000 






TLX! 


OPEN 




3407 


014726 


005067 


164432 






CLR 


TMP1 


3408 


014732 


104016 






IS: 


TTYIN 




3409 


014734 


104017 








VALID 




3410 


014736 


000775 








BP 


IS 


3411 
















3412 
















3413 


01 4740 


042767 


177600 


164426 


VALINPl 


BIC 


#177600, TIB 


3414 


014746 


122767 


000007 


164420 




CMPB 


#7, TIB 


3415 


01 4754 


001002 








BNE 


US 


3416 


014756 


104015 








CNTL 




3417 


01 4760 


000404 








BR 


6$ 


3418 


014762 


122767 


000025 


164404 


lis: 


CMPB 


#25, TIB 


3419 


014770 


001004 








BNE 


1$ 


3420 


014772 


022626 






6SI 


POPSP2 




3421 


01 4774 


162716 


000016 






SUB 


#16, (SP) 


3422 


015000 


000002 








RTI 




3423 


015002 


122767 


000015 


164164 


IS! 


CMPB 


#15, TIB 


3424 


015010 


001004 








BNE 


4S 


3425 


015012 


104003 








TYPE 




3426 


015014 


020230 








SCRLF 




3427 


015016 


022626 






9S! 


POPSP2 




3428 


015020 


000002 








RTI 




3429 


015022 


122767 


000012 


164344 


4SJ 


CMPB 


#12# TIB 


3430 


015030 


001410 








BEQ 


5$ 


3431 


015032 


122767 


000060 


164334 


2St 


CMPB 


#60, TIB 


3432 


015040 


003004 








BGT 


58 


3433 


015042 


122767 


000067 


164324 




CMPB 


#67, TIB 


3434 


015050 


002003 








BGE 


7$ 


3435 


015052 


104003 






5Sl 


TYPE 




3436 


015054 


020232 








SQUEST 




3437 


015056 


000745 








BR 


6S 


3438 


015060 


006367 


164300 




7S! 


ASL 


TMP1 


3439 


015064 


006367 


164274 






ASL 


TMP1 


3440 


015070 


006367 


164270 






ASL 


TMP1 


3441 


015074 


042767 


177770 


164272 




BIC 


#177770, TIB 


3442 


015102 


056767 


164266 


164254 




BIS 


TIB#TMP1 


3443 


015110 


005367 


164256 






DEC 


COUNT 


3444 


015114 


001756 








BEQ 


5$ 


3445 


015116 


000002 








RTI 




3446 
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3447 














ITKS 


3448 


015120 


105777 


164104 




CKSWRRt 


TSTB 


3449 


015124 


100043 








BPL 


OUT 


3450 


015126 


017767 


164100 


164240 




MOV 


0TKB , TIB 


3451 


015134 


042767 


177600 


164232 




BIC 


#i77600» TIB 


3452 


015142 


022767 


000007 


164224 




CMP 


#7, TIB 


3453 


015150 


001033 








BNE 


OUT 


3454 


015152 


104003 








TYPE 




3455 


015154 


020223 








SCTLG 


§SWR,TMP1 


3456 


015156 


017767 


164022 


164200 


CNTLUi 


MOV 


3457 


015164 


004567 


167636 






JSR 


%5,ACNV6 


3458 


015170 


001364 








TMP1 




3459 


015172 


020236 








$ VALUE 




3460 


015174 


104004 








TYPES 




3461 


015176 


020304 








SSWREO 




3462 


015200 


020236 








SVALUE 




3463 


015202 


177777 








-1 


#$NEW,TLX 


3464 


015204 


012767 


020273 


177512 




MOV 


3465 


015212 


012767 


000007 


164152 




MOV 


#7, COUNT 


3466 


015220 


104014 








OPTSEL 


#7, COUNT 


3467 


015222 


022767 


000007 


164142 




CMP 


3468 


015230 


001403 








BEO 


OUT 


3469 


015232 


016777 


164126 


163744 




MOV 


TMPt,9SWR 


3470 


015240 


000002 






OUT! 


RTI 




3471 
















3472 
3473 


015242 


104004 






SWTL! 


TYPES 




3474 


015244 


015363 








CM4 




3475 


015246 


015453 








CM4B 




3476 


015250 


177777 








-1 




3477 


015252 


104015 








CNTL 




3478 


015254 


000207 








RTS 


%7 



3479 
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3480 












3481 


015256 


020040 


020040 


040 


DECVA 


3482 


015263 


007 






APGENI 


3483 


015264 


025045 


100 






3484 


015267 


045 


044443 


041516 


CM2: 


3485 


015274 


051117 


042522 


052103 




3486 


015302 


050040 


047522 


051107 




3487 


015310 


046501 


051440 


046105 




3488 


015316 


041505 


042524 


027104 




3489 


015324 


100 








3490 


015325 


045 


044443 


041516 


CM3| 


3491 


015332 


051117 


042522 


052103 




3492 


015340 


051040 


052517 


044524 




3493 


015346 


042516 


051440 


046105 




3494 


015354 


041505 


042524 


027104 




3495 


015362 


100 








3496 


015363 


045 


051443 


046105 


CM4I 


3497 


015370 


041505 


020124 


042504 




3498 


015376 


044523 


042522 


020104 




3499 


015404 


051123 


047440 


052120 




3500 


015412 


047511 


051516 


056 




3501 


015417 


045 


047516 


046522 




3502 


015424 


046101 


047440 


042520 




3503 


015432 


040522 


044524 


047117 




3504 


015440 


044440 


020123 


044527 




3505 


015446 


044124 


040040 


040 




3506 


015453 


123 


051127 


030075 


CM4B| 


3507 


015460 


030060 


030060 


020060 




3508 


015466 


100 








3509 


015467 


043 


037443 


046440 


CM5 1 


3510 


015474 


047101 


040525 


020114 




3511 


015502 


047522 


052125 


047111 




3512 


015510 


027105 


041040 


052111 




3513 


015516 


020070 


051450 


051127 




3514 


015524 


043505 


020051 


051511 




3515 


015532 


051440 


052105 


040056 




3516 


015540 


021445 


051120 


030107 


IM0I 


3517 


015546 


020056 


042522 


042101 




3518 


015554 


051105 


046040 


043517 




3519 


015562 


041511 


052040 


051505 




3520 


015570 


051524 


040056 






3521 


015574 


021445 


031120 


031107 


IM0A| 


3522 


015602 


020056 


052520 


041516 




3523 


015610 


020110 


047514 


044507 




3524 


015616 


020103 


042524 


052123 




3525 


015624 


027123 


100 






3326 


015627 


045 


050043 


043522 


IM0BI 


3527 


015634 


027063 


050040 


047125 




3528 


015642 


044103 


052040 


051505 




3529 


015650 


027124 


100 






3530 


015653 


045 


050043 


043522 


IM0CI 


3531 


015660 


030461 


020056 


047503 




3532 


015666 


047125 


020124 


040520 




3533 


015674 


032124 


051105 


020116 




3534 


015702 


040524 


042520 


043440 




3535 


015710 


047105 


031105 


052101 





.SBTTL 

.ASCII ' 

.BYTE 7 

.ASCII '%#§' 

.ASCII '%#INCORRECT PROGRAM SELECTED, a' 

.ASCII *%#INCORRECT ROUTINF SELECTED, 9* 

.ASCII '%#SELECT DESIRED SR OPTIONS, ' 

.ASCII *%NORMAL OPERATION IS WITH P ' 

.ASCII 'SWRa000000 0' 

.ASCII '%#? MANUAL ROUTINE. BITS (SWPEG) IS SET 

.ASCII '%#PRG0. READER LOGIC TESTS,?* 

.ASCII *%#PRG2, PUNCH LOGIC TESTS, 9* 

.ASCII '%#PRG3, PUNCH TEST, 9' 

.ASCII 'IIPRGll , COUNT PATTERN TAPE GENERATOR.? 
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3536 


015716 


05 1 1 1 7 


040056 




3537 


015722 


05 1 445 


052105 




3538 


015730 


020120 


042522 


042101 


3539 


015736 


051 105 


040440 


0201 iS 


3540 


015744 


047506 


0461 14 


053517 


3541 


015752 


035123 


040040 




3542 


015756 


047520 


042527 


020122 


3543 


015764 


0431 17 


026 106 


047 440 


3544 


015772 


043106 


046055 


0471 1 1 


3545 


016000 


026105 


047040 


0201 17 


3546 


016006 


040524 


042520 


040056 


3547 


016014 


047520 


042527 


020122 


3548 


016022 


047117 


020054 


043117 


3549 


016030 


026506 


044514 


042516 


3550 


016036 


020054 


047516 


052040 


3551 


016044 


050101 


027105 


100 


3552 


016051 


1 20 


05351 7 


05 1 1 05 


3553 


0t6056 


047440 


0261 16 


047440 


3554 


016064 


026516 


044514 


042516 


3555 


016072 


020054 


047516 


052040 


3556 


016100 


050101 


027105 


100 


3557 


016105 


045 


046120 


041501 


3558 


016112 


020105 


051120 


031507 


3559 


016120 


047440 


052125 


052520 


3560 


016126 


020124 


040524 


042520 


3561 


016134 


044440 


020116 


042522 


3562 


016142 


042101 


051 105 


020056 


3563 


016150 


044506 


051522 


0201 24 


3564 


016156 


052522 


047502 


052125 


3565 


016164 


040 






3566 


016165 


123 


047510 


0461 25 


3567 


016172 


020104 


042502 


040440 


3568 


016200 


047502 


052125 


031 440 


3569 


016206 


044440 


041516 


042510 


3570 


016214 


123 






3571 


016215 


045 


05 1 106 


0465 1 7 


3572 


016222 


05 1 040 


043511 


052 1 1 


3573 


016230 


042440 


043504 


0/0105 


3574 


016236 


0431 17 


05 1040 


040505 


3575 


016244 


042504 


020122 


05 1 1 20 


3576 


016252 


05 1 505 


052523 


<ci io ii 


3577 


016260 


5?50040 


0405 1 4 


042524 


3578 


016266 


022456 


1 00 




3579 


016271 


120 


053517 


051 105 


3580 


016276 


047440 


026116 


047440 


3581 


016304 


026516 


044514 


042516 


3582 


016312 


020054 


040524 


042520 


3583 


016320 


044440 


020116 


042522 


3584 


016326 


042101 


051105 


040056 


3585 


016334 


046445 


045501 


020105 


3586 


016342 


042522 


042101 


051105 


3587 


016350 


051040 


040505 


054504 


3588 


016356 


040056 






3589 


016360 


021445 


051120 


030507 


3590 


016366 


020056 


042522 


042101 


3591 


016374 


051105 


052040 


051505 



, ASCII '%SKT UP READER AS FOLLOWS! 9' 



.ASCII 'POWER OFF, OFF-LINE, NO TAPE. 8* 



.ASCII 'POWER ON, OFF-LINE, NO TAPE. 8* 



.ASCII 'POWER ON, ON-LINE, NO TAPE,*' 



.ASCII 'tpLACE PR63 OUTPUT TAPE IN READER, FIRST RUIOUT 



.ASCII 'SHOULD BE ABOUT 3 INCHES' 



.ASCII '%FROM RIGHT EDGE OF READER PRESSURE PLATE, %f 



.ASCII 'POWER ON, ON-LINE, TAPE IN READER. 9' 



.ASCII *%MAKE READER READY , 9 * 



.ASCII '%#PRGl, READER TEST,*' 
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3592 


016402 


027124 


100 








3593 


016405 


045 


052524 


047122 


IM10J 


.ASCII 


3594 


016412 


051040 


040505 


042504 






3595 


016420 


020122 


043117 


026506 






3596 


016426 


044514 


042516 


040056 






3597 


016434 


051445 


052105 


052440 


IMHI 


.ASCII 


3598 


016442 


020120 


052520 


041516 






3599 


016450 


020110 


051501 


043040 






3600 


016456 


046117 


047514 


051527 






3601 


016464 


020072 


100 








3602 


016467 


120 


053517 


051105 


IM12t 


.ASCII 


3603 


016474 


047440 


043106 


020054 






3604 


016502 


0475J6 


052040 


050101 






3605 


016510 


027105 


100 








3606 


016513 


120 


053517 


051105 


IMUl 


. ASCII 


3607 


016520 


047440 


026116 


047040 






3608 


016526 


020117 


040524 


042520 






3609 


016534 


040056 










3610 


016536 


047520 


042527 


020122 


IM14I 


.ASCII 


3611 


016544 


047117 


020054 


040524 






3612 


016552 


042520 


044440 


020116 






3613 


016560 


052520 


041516 


027110 






3614 


016566 


100 










3615 


016567 


045 


042522 


047515 


IM15! 


.ASCII 


3616 


0t6574 


042526 


052040 


050101 






3617 


016602 


020105 


051106 


046517 






3618 


016610 


050040 


047125 


044103 






3619 


016616 


040056 










3620 


016620 


046445 


045501 


020105 


IM16! 


.ASCII 


3621 


016626 


052520 


041516 


020110 






3622 


016634 


042522 


042101 


027131 






3623 


016642 


100 










3624 


016643 


045 


050043 


043522 


IM17I 


.ASCII 


3625 


016650 


030061 


026440 


051040 






3626 


016656 


040505 


020104 


026130 






3627 


016664 


051440 


040524 


046114 






3628 


016672 


054440 


022456 


040043 






3629 


016700 


021445 


051120 


032107 


IM20I 


.ASCII 


3630 


016706 


020056 


052520 


041516 






3631 


016714 


020110 


042526 


044522 






3632 


016722 


054506 


052040 


051505 






3633 


016730 


027124 










3634 


016732 


046045 


040517 


020104 




.ASCII 


3635 


016740 


042522 


042101 


051105 






3636 


016746 


053440 


052111 


020110 






3637 


016754 


040524 


042520 


050040 






3638 


016762 


047522 


052504 


042S03 






3639 


016770 


020104 










3640 


016772 


054502 


050040 


043522 




.ASCII 


3641 


017000 


027063 


100 








3642 


017003 


045 


050043 


043522 


IM211 


.ASCII 


3643 


017010 


022466 


040043 








3644 


017014 


021445 


051120 


033507 


IM22I 


.ASCII 


3645 


017022 


021445 


100 








3646 


017025 


045 


051120 


051505 


IH23| 


.ASCII 


3647 


017032 


020123 


047503 


052116 







.ASCII *%LOAD READER WITH TAPE PRODUCED 
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3648 


017040 


047111 


042325 


040056 




3649 


017046 


021445 


051120 


030507 


IM24| 


3630 


017054 


027062 


050040 


051124 




3651 


017062 


051440 


042S20 


042105 




3652 


017070 


052040 


051305 


027124 




3653 


017076 


046045 


040517 


020104 




3654 


017104 


047101 


020131 


040524 




3655 


017112 


042520 


046040 


047517 




3656 


017120 


020120 


047111 


051040 




3657 


017126 


040505 


042504 


020122 




3658 


017134 


047101 


020104 


040515 




3659 


017142 


042513 


051040 


040505 




3660 


017150 


054504 


022456 


040043 




3661 


017156 


050045 


042522 


051523 


IM24M 


3662 


017164 


041440 


047117 


044524 




3663 


017172 


052516 


020105 


047524 




3664 


017200 


051440 


040524 


052122 




3665 


017206 


052040 


046511 


047111 




3666 


017214 


027107 


021445 


100 




3667 


017221 


045 


050043 


043522 


IM251 


3668 


017226 


031461 


020056 


052120 




3669 


017234 


020120 


050123 


042505 




3670 


017242 


020104 


042524 


052123 




3671 


017250 


040056 








3672 


017252 


021445 


051120 


032507 


IM26J 


3673 


017260 


020056 


047503 


041115 




3674 


017266 


047111 


042105 


051040 




3675 


017274 


040505 


042504 


026522 




3676 


017302 


052520 


041516 


020110 




3677 


017310 


042524 


052123 


056 




3678 


017315 


045 


040515 


042513 




3679 


017322 


050040 


047125 


044103 




3680 


017330 


051040 


040505 


054504 




3681 


017336 


020054 


052520 


041516 




3682 


017344 


020110 


046102 


047101 




3683 


017352 


020113 


042514 


042101 




3684 


017360 


051105 


020054 






3685 


017364 


047514 


042101 


044440 




3686 


017372 


020116 


042522 


042101 




3687 


01 7400 


051105 


040056 






3688 


017404 


051045 


040505 


042504 


SMu 


3689 


017412 


020122 


051105 


047522 




3690 


017420 


020122 


044502 


020124 




3691 


017426 


342523 


027124 


100 




3692 


017433 


045 


042522 


042101 


SM2I 


3693 


017440 


051105 


047040 


052117 




3694 


017446 


051040 


040505 


054504 




3695 


017454 


040056 








3696 


017456 


021445 


052520 


041516 


SM3J 


3697 


017464 


0201 10 


047516 


020124 




3698 


017472 


042522 


042101 


027131 




3699 


017500 


100 








3700 


017501 


045 


051043 


040505 


SM4i 


3701 


017506 


042504 


020122 


050123 




3702 


017514 


042505 


020104 


020072 




3703 


017522 


100 









76 09144 PAGE 75 

.ASCII *%*PRGi2, PTR SPEED TEST,* 

.ASCII '%LOAD ANY TAPE LOOP IN READER ' 

.ASCII 'AND MAKE READY »%## ' 

.ASCII '%PRESS CONTINUE TO START TIMING, %#&' 

.ASCII '%#PRG13, PTP SPEED TEST ,9' 

.ASCII '%#PRG5, COMBINED READER-PUNCH TEST, ' 

.ASCII »%MAKE PUNCH READY, PUNCH BLANK LEADER, 

.ASCII 'LOAD IN READER, § ' 

.ASCII *%READER ERROR BIT SET,»' 

.ASCII *%READER NOT READY, §' 

.ASCII »%#PUNCH NOT READY, £ ' 

.ASCII '%#READEP SPEED ! $* 
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3704 


017523 


045 


050043 


047125 


SM5: 


.ASCII 


'%«PUNCH SPEED 1 »' 


3705 


017530 


044103 


051440 


042520 








3706 


017536 


042105 


035040 


040040 








3707 


017544 


020040 


020040 


041440 


ACPSJ 


.ASCII 


' CHARS PER SEC,?' 


3708 


017552 


040510 


051522 


050040 






3709 


017560 


051105 


051440 


041505 








3710 


017566 


040056 












37U 


017570 


021445 


051105 


047522 


EM0S 


.ASCII 


*%#ERROR P ' 


3712 


017576 


020122 


020120 










3713 


017602 


020040 


020040 


020040 


APNUMBl 


.ASCII 


' T ' 


3714 


017610 


020124 












3715 


017612 


020040 


020040 


020040 


ATNUMB: 


.ASCII 


' PC ' 


3716 


017620 


041520 


040 










3717 


017623 


040 


020040 


020040 


APCi 


.ASCII 


' <a' 


3718 


017630 


040040 












3719 


017632 


020040 


040504 


040524 


EMU 


.ASCII 


' DATA ERROR S/Bj ' 


3720 


01 7640 


042440 


051122 


051117 








3721 


017646 


020040 


027523 


035102 








3722 


017654 


040 












3723 


017655 


040 


020040 


020040 


ASBt 


.ASCII 


' WASl ' 


3724 


017662 


053440 


051501 


020072 








3725 


017670 


020040 


020040 


100 


AWASS 


.ASCII 




3726 


017675 


040 


042522 


042522 


EM21 


.ASCII 


' REREAD ERROR. 1ST READ i ' 


3727 


017702 


042101 


042440 


051122 






3728 


017710 


051117 


020056 


030440 








3729 


017716 


052123 


051040 


040505 








3730 


017724 


035104 


040 










3731 


017727 


040 


020040 


020040 


ORGRDl 


.ASCII 


' WAS! * 


3732 


017734 


053440 


051501 


020072 








3733 


017742 


020040 


020040 


100 


SUBRDj 


.ASCII 


' fS' 


3734 


017747 


040 


054523 


041516 


EM31 


.ASCII 


' SYNC ERROR. 9* 


3735 


017754 


042440 


051122 


0511|7 








3736 


017762 


040056 










3737 


017764 


046045 


040505 


042504 


EM4I 


.ASCII 


*%LEADER ERROR, S/B| ' 


3738 


017772 


020122 


051105 


047522 






3739 


020000 


027122 


020040 


027523 








3740 


020006 


035102 


040 










3741 


020011 


040 


020040 


020040 


ESB! 


.ASCII 


» WASl * 


3742 


020016 


053440 


051501 


020072 








3743 


020024 


020040 


020040 


100 


EWASl 


.ASCII 


» 8' 


3744 


020031 


045 


042514 


042101 


EM5I 


.ASCII 


'%LEADER ERROR , S/B BETWEEN ' 


3745 


020036 


051105 


042440 


031122 








3746 


020044 


051117 


020056 


027523 








3747 


020052 


020102 


042502 


053524 








3748 


020060 


042505 


020116 










3749 


020064 


020060 


047101 


020104 




.ASCII 


'0 AND 3, WAS 1 ' 


3750 


020072 


027063 


053440 


051501 








3751 


020100 


035040 


040 










3752 


020103 


040 


020040 


040040 


FWASi 


t ASCII 


' 9* 


3753 


020110 


046440 


052101 


044103 


EM6I 


s ASCII 


» MATCH ERR, »' 


3754 


020116 


042440 


051122 


040056 








3755 












.EVEN 




3756 


020124 


003407 






EM7» 


3407 


; DOUBLE BELL, 


3757 


020126 


021445 


052120 


020122 




.ASCII 


•%#PTR NRPi* 


3758 


020134 


051116 


040120 










3759 


020140 


043040 


046101 


042523 


EM10I 


8 ASCII 


* FALSE RDR, INTRO' 
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3760 


0201 46 


05 1040 


051 104 


W6WW90 




3761 


020154 


047111 


05 1124 


100 




3762 


020161 








EMI 1 | 


3763 


09CI 1 fif> 


020 1 05 


052520 


fl90M 1 ft 




3764 


020174 


0471 1 1 




100 




3765 


020201 


045 




031507 


d % trim • 


3766 


102 w2wO 


a a t a An 
w4244k> 


0421 16 


047440 




3767 


0202 1 4 


ata 4 at. 


040320 


051523 






w2w222 


1 00 








3769 


ViVii 3 




043536 


040045 


SCTLGl 


3770 


0202 30 


CSAarx A a 

040045 






SCPLFI 


177 i 

3 1 1 I 


0202 32 


037445 


(94004 S 




SQUEST J 


3772 


0202 36 


w2wi04n 


lA'i Oktk AlA 

w20v?4 v 


020040 


S VALUE 1 






(31 A dfli A 01 
1940040 








177A 

,zz? 


020246 


05 1 445 


0461 05 


041505 


SRTN I 


3775 


020254 


020124 


047522 


052125 






020262 


047111 


«920 1 03 


04751 6 




3777 




I020W3D 








3778 






w4 / w4 w 


053505 


9 EWI 




1320 J low 


■7200 / 5 


040040 






a7aa 


020 Jw4 


021445 


053523 


036522 


SSWREQl 


3781 


WZ6J.il 2 


040040 








3782 




a At A AK 

W42443 


052 1 1 6 


05 1 1 05 


851X51 1 


3783 


020322 


(31 HI rilA A fll 


?f 


05 1 107 






020 S Jw 


046501 


047040 


027 117 




1 to! 


020336 


040040 










r\*\r% % A fx 

020J40 


042445 


0521 1 6 


051 105 


STIMEj 


1701 


020346 


w3 2w4k> 


04651 1 


0471 1 1 




i7afl 


020354 


020107 


1 00 








020357 


045 


047105 


042524 


SSTALL | 


i7oa 




0201 22 


052123 


0461 1 




37Q1 


020372 


3201 1 4 


1 00 






17Q5 








042524 


SNUMCR 1 


3793 






fll A A 4 01 ^ 

W44 xass 


05 1 101 




3794 


aoaAi a 
V £vt lv 


MA4 ROM 


042524 


0201 22 




3795 




«A7s;aa 


047125 


020 124 






(l^A4 A 

1920424 


1 00 








3797 








0201 24 


SCHl I 


3798 


0204 32 


044103 


051 101 


w32w4w 




3799 


020440 




052520 








020446 


0201 10 


10 410 4 3 Ip 


041523 




3801 


020454 




020051 


WC WW / 9 




3802 


020462 


"^100 








3803 


020463 


045 


047062 


020104 


SCH2 1 


3804 


020470 


044103 


051101 


052040 




3805 


020476 


020117 


052520 


041516 




3806 


020504 


020110 


040450 


041523 




3807 


020512 


044511 


020051 


020075 




3808 


020520 


100 








3809 


020521 


045 


050040 


042522 


SSKEYl 


3810 


020526 


051523 


041440 


047117 




3811 


020534 


044524 


052516 


020105 




3812 


020542 


044127 


047105 


051040 




3813 


020550 


040505 


054504 


021445 




3814 


020556 


052123 


044522 


042513 




3815 


020564 


040440 


054516 


045440 





(ASCII * FALSE PUN INTRI ' 

.ASCII *%PRG3 END OF PASS9 ' 

( ASCII '%"G%9' 

.ASCII *%9' 

.ASCII »%?#9» 

.ASCII ' 9' 

.ASCII *%SELECT ROUTINE NO, 9' 

.ASCII ' NEWs 9' 

.ASCII '%#SWR« 9' 

.ASCII '%ENTER PROGRAM NO, 9' 

.ASCII '%ENTER TIMING 9' 

.ASCII # %ENTER STALL 9' 

.ASCII '%ENTER CHARACTER COUNT 9' 

.ASCII '%1ST CHAR TO PUNCH (ASCII) = 9' 

.ASCII '%2ND CHAR TO PUNCH (ASCII) s 0' 

.ASCII '% PRESS CONTINUE WHEN READY%# ' 

.ASCII 'STRIKE ANY KEY AT END OF TIMING%9» 
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3816 


020572 


054505 


040440 


020124 








3817 


020600 


047105 


020104 


043117 








3818 


020606 


052040 


046511 


047111 








3819 


02061 4 


022507 


100 










3820 


020617 


045 


051461 


020124 


SRDlt 


.ASCII 


'%1ST CHAR TO READ (ASCII) = 


3821 


020624 


044103 


051101 


052040 








3822 


020632 


020117 


042522 


042101 








3823 


020640 


024040 


051501 


044503 








3824 


020646 


024511 


036440 


040040 








3825 


020654 


031045 


042116 


041440 


SRD2I 


.ASCII 


'%2ND CHAR TO READ (ASCII) » 


3826 


020662 


040510 


020122 


047524 








3827 


020670 


051040 


040505 


020104 








3828 


020676 


040450 


041523 


044511 








3829 


020704 


020051 


020075 


100 








3830 


020711 


045 


050043 


036503 


PCHLTI 


.ASCII 


*%#PC* ' 


3831 


020716 


040 












3832 


020717 


040 


020040 


020040 


GWASl 


.ASCII 


' -HALT%» 9 ' 


3833 


020724 


020040 


044055 


046101 








3834 


020732 


022524 


040043 










3835 


020736 


025045 


025052 


047105 


ENDRTNl 


.ASCII 


'%***END«RTN NO. * 


3836 


020744 


026504 


052122 


020116 








3837 


020752 


047516 


020056 










3838 


020756 


020040 


020040 


026440 


RTNNi 


.ASCII 


' -HALT%* 9 * 


3839 


020764 


040510 


052114 


021445 








3840 


020772 


100 












3841 


020773 


045 


046443 


044501 


STITLEl 


.ASCII 


# %#MAINDEC-11»DZPCA-E%' 


3842 


021000 


042116 


041505 


030455 








3843 


021006 


026461 


055104 


041520 








3844 


02t014 


026501 


022505 










3845 


021020 


041520 


030461 


051040 




.ASCII 


'PCI 1 READER-PUNCH TESTS%#9* 


3846 


021026 


040505 


042504 


026522 








3847 


021034 


052520 


041516 


020110 








3848 


021042 


042524 


052123 


022523 








3849 


021050 


040043 












3850 




000001 








, END 
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ACNV 


005U2 


AT2A 


005546 


AT6A 


ACNVB 


00S046 


AT20 


006630 


AT6B 


ACNVC 


005074 


AT20A 


006650 


AT6E1 


ACNVM 


005126 


AT20B 


006670 


AT7 


ACNVX 


005110 


AT20X 


006740 


AT7A 


ACNV4 


005054 


AT21 


006744 


AWAS 


ACNV6 


005026 


AT21A 


006760 


A1ST 


ACPS 


017544 


AT21B 


007012 


BCHECK 


ADTENP 


005364 


AT21E 


007010 


BDCNV 


APC 


017623 


AT22 


007014 


BDCNVA 


APGEND 


015263 


AT22A 


007030 


BELL b 


APNUMB 


017602 


AT22E 


007064 


BIT0 « 


ARDA 


002672 


AT23 


007070 


BIT1 s 


ARDB 


002710 


AT23A 


007104 


BIT10 a 


ARDER 


002530 


AT23B 


007144 


BITil s 


AREAO 


002662 


AT23E 


007142 


BIT12 « 


AREAOl 


002666 


AT24 


007146 


BZT13 s 


ARRDY 


002642 


AT24A 


007156 


BIT14 a 


ARRDYA 


002654 


AT24C 


007214 


BIT15 ■ 


ASB 


017655 


AT24D 


007230 


BIT2 s 


ATNUMB 


017612 


AT24E1 


007210 


BIT3 s 


AT0 


005432 


AT24E2 


007234 


BIT4 a 


AT0A 


005450 


AT25 


007240 


BITS a 


AT0E 


005456 


AT25A 


007254 


BIT6 s 


ATi 


005462 


AT25B 


007314 


BIT7 « 


ATI A 


005500 


AT25E 


007312 


BITS a 


ATI E 


005506 


AT26 


007316 


BIT9 a 


AT10 


006104 


AT26A 


007350 


BMOVA 


AT10A 


006114 


AT26B 


007410 


BMOVE 


AT10E 


006134 


AT26E1 


007402 


BRCTR 


ATI 1 


006140 


AT26E2 


007406 


BRDBB 


ATI 1 A 


006162 


AT27 


007412 


BRDCC 


AT12 


006174 


AT27A 


007444 


BRDDD 


AT12A 


006204 


AT27C 


007500 


BREAD 


AT12E1 


006236 


AT27D 


007514 


BREADA 


AT12E2 


006242 


AT27E1 


007524 


BREADB 


AT13 


006246 


AT27E2 


007474 


BREADC 


AT13A 


006256 


AT27E3 


007520 


BSYNC 


AT14 


006314 


AT3 


005562 


BT0 


ATi 4A 


006324 


AT3A 


005616 


BT0A 


ATI 4C 


006366 


AT30 


007530 




AT15 


006376 


AT30A 


007576 


BT1A 


AT13A 


006406 


AT30B 


007624 


BT2 


AT15E 


006442 


AT30C 


007632 


BT2A 


AT16 


006446 


AT30D 


007654 


BT2C 


AT16A 


006456 


AT30EI 


007656 


BT3 


AT16B 


006506 


AT30E2 


007620 


BT3A 


AT16E 


006524 


AT30E3 


007652 


BT3C 


AT17 


006530 


AT4 


005630 


BT4 


ATi 7 A 


006540 


AT4A 


005672 


BT4A 


ATi 7B 


006556 


ATS 


005704 


BT4C 


ATI 7E 


006602 


AT5A 


005746 


CC = 


AT2 


005512 


AT6 


005760 


CHAIN 



005776 


CHALT 3 


104010 


CT12A 


01 1020 


006020 


CHLT 


002462 


CT12C 


01 1050 


006014 


CHNAA 


002204 


CT12E 


01 1046 


006042 


CHNB 


002244 


CT13 


01 1052 


006060 


CHRi 


001402 


CT13A 


01 1062 


017670 


CHR1A 


001410 


CT13C 


011120 


005102 


CHR2 


001404 


CTl 3D 


011134 


004372 


CHR2A 


001412 


CT13E1 


011114 


005256 


CHR3 


001406 


CT13E2 


011140 


005276 


CHR3A 


001414 


CT14 


011144 


000007 


CKSWR a 


104020 


CT14A 


01 1 160 


000000 


CKSWRR 


015120 


CT14E 


011214 


000002 


CLEAN 


001716 


CT15 


01 1220 


002000 


CM2 


015267 


CT15A 


011234 


004000 


CMS 


015325 


CT15B 


011274 


010000 


CM4 


015363 


CT15E 


011272 


020000 


CM4B 


015453 


CT16 


011276 


040000 


CM5 


015467 


CT16A 


011312 


100000 


CNTL s 


104015 


CT16B 


01 1354 


000004 


CNTLU 


015156 


CT16E 


01 1352 


000010 


CNVCTR 


005356 


CT17 


011356 


000020 


COUNT 


001372 


CT17A 


011410 


000040 


CPKPL 


014616 


CT17B 


01 1 454 


000100 


CPKPLA 


014644 


CT17C 


01 1470 


000200 


CPRDY 


005204 


CT17E1 


01 1450 


000400 


CPRDYA 


005222 


CT17E2 


01 1474 


001000 


CRBUF 


001400 


CT17E3 


01 1500 


005174 


CRDA 


013122 


CT2 


010320 


005166 


CRDAA 


013134 


CT2A 


010354 


001242 


CREAD 


013106 


CT20 


011504 


003210 


creada 


013174 


CT20A 


011536 


003222 


creadb 


013216 


CT20B 


011572 


003230 


creadc 


013226 


CT20C 


011600 


003102 


CRTA 


001672 


CT20D 


011622 


003144 


CRTB 


001702 


CT20E1 


01 1624 


003162 


CTRA 


001420 


CT20E2 


01 1566 


003216 


CTRB 


001422 


CT20E3 


01 1620 


004452 


CTRC 


001424 


CT3 


010370 


007724 


CTRD 


001426 


CT3A 


010424 


007740 


CT0 


010240 


CT4 


010436 






010256 




010472 


007774 


CT0E 


010264 


CT5 


010504 


010010 


CT1 


010270 


CT5A 


010514 


010032 


CT1A 


010306 


CT5B 


010544 


010042 


CT1E 


010314 


CT6 


010566 


010062 


CT10 


010652 


CT6A 


010576 


010112 


CT10A 


010662 


CT7 


010630 


010120 


CT10B 


010670 


CT7A 


010640 


010140 


CT10C 


010734 


CUPTST 


001254 


010170 


CTH 


010742 


DECVAL 


015256 


010176 


CTHA 


010752 


DELAY s 


104000 


177776 


CTUE 


011000 


DELAYX* 


104400 


002110 


CT12 


011004 


DIGIT 


005360 



PCll READER-PUNCH TESTS MACYil 27(732) 18-MAR-76 09144 PAGE 81 
DZPCAE.SRC SYMBOL TABLE 



DISPLA 


001206 


DISPRE 


000174 


DLCNT 


003716 


DLCTR 


003714 


DLY 


003566 


DLYA 


003610 


DLYB 


003616 


DLYX 


004310 


DLYXA 


004322 


DLYXB 


004330 


DLYX0 a 


004314 


DLYX1 a 


004326 


DT0 


011662 


DT0A 


011672 


DT0B 


011712 


DTI 


011732 


DTI A 


011750 


DT1B 


011770 


DT2 


012012 


DT2A 


012036 


DT2B 


012056 


DT2C 


012064 


DT2D 


012112 


DT3 


012114 


DT3A 


012124 


DT3B 


012144 


DT3C 


012156 


DT3D 


012204 


DT4 


012206 


DT4A 


012216 


DVDND 


001244 


DVQUOT 


001246 


ECHK 


012622 


ECHKA 


012656 


EHALT a 


104001 


EHLT 


002514 


EHLTA 


002526 


EMTINT 


002442 


EMTTAB 


001320 


EMTX a 


000021 


EM0 


017570 


EMI 


017632 


EM10 


020140 


EMI 1 


020161 


EM2 


017675 


EM3 


017747 


EM4 


017764 


EMS 


020031 


EM6 


020110 


EM7 


020124 


ENDRTN 


020736 


ERCTR 


001416 


ERR 


003234 



ERRA 003320 

ERROR a 104006 

ERRORls 104007 

ERRT 001362 

ERR1 003244 

ERRiA 003272 

ESB 020011 

ET0A 012330 

ET0B 012336 

ET0C 012344 

ET0D 012374 

ET0E 012402 

ET0F 012410 

ET0G 012432 

ET0H 012476 

ET0I 012530 

ET0J 012542 

ET0K 012572 

EWA5 020024 

FORWD 002364 

FRST 001370 

FWAS 020103 

GETRDY 001710 

GOTST 002416 

GOTSTA 002436 

GRCNT 004346 

GTBIN 004712 

GTBINP 004760 

GTRDYA 001736 

GTRDYB 001742 

GTRDYC 001760 

GTRDYD 002062 

GWAS 020717 

HERE 002350 

HSPCH 005236 

HT0A 013720 

HT0B 013770 

HT0C 013776 

HT0D 014030 

HT0E 014054 

HT0F 014104 

HT0G 014126 

XCTR 001262 

IM0 015540 

IM0A 015574 

IM0B 015627 

IM0C 015653 

IM1 015722 

IM10 016405 

IMH 016434 

IM12 016467 

IM13 016513 

IM14 016536 



IM15 


016567 


IM16 


016620 


IM17 


016643 


IM2 


015756 


IM20 


016700 


1M21 


017003 


IM22 


017014 


IM23 


017025 


IM24 


017046 


IM24A 


017156 


IM25 


017221 


IM26 


017252 


1M3 


016014 


IM4 


016051 


IM4S 


016105 


IM5 


016271 


IM6 


016334 


IM7 


016360 


INBIN 


004654 


INCRTN 


002100 


INGXOR 


001570 


INHPRT 


003300 


ITA 


014246 


ITB 


014272 


ITX 


014320 


ITY 


014314 


KSTART 


001252 


KTA 


014416 


KTB 


014450 


KTC 


014460 


KTD 


014476 


KTE 


014504 


KTF 


014512 


LOGIC 


002340 


LTA 


014540 


LTB 


014554 


LTC 


014572 


LTD 


014600 


LTE 


014606 


MACHER 


000004 


MANUALa 


100000 


MESS 


002042 


MSEC 


001250 


NOP a 


000240 


NTYET 


002016 


NXTST 


001260 


OPEN a 


000000 


OPTS 


014722 


OPTSELs 


104014 


ORGRD 


017727 


OUT 


015240 


PBIN 


012766 


PBINA 


013070 



PBINB 


013104 


PBNA 


013004 


PBNB 


013016 


PC =%000007 


PCHCNT 


013234 


PCHLT 


020711 


PCHLVL 


001226 


PCHVTR 


001 224 


PCSIM 


002554 


PFRNT 


012226 


PIND 


004704 


POPSP a 


005726 


POPSP2= 


022626 


PPB 


001216 


PPS 


001214 


PRB 


001212 


PPGID 


001266 


PPGNUM 


001240 


PRGTAB 


001270 


PRG0 


005376 


PRG1 


007666 


PRG10 


014134 


PRGil 


014322 


PRGllA 


014344 


PRGUB 


014360 


PRG12 


014372 


PRG13 


014524 


PRG2 


010216 


PRG3 


011634 


PRG4 


012302 


PRG5 


012660 


PRG6 


013454 


PRG6A 


013562 


PRG7 


013606 


PRS 


001210 


PRTY0 a 


000000 


PRTY1 a 


000040 


PRTY2 » 


000100 


PRTY3 a 


000140 


PRTY4 a 


000200 


PRTY5 a 


000240 


PRTY6 a 


000300 


PRTY7 a 


000340 


PSW a 


177776 


PTINTA 


004254 


PTMCAL 


004170 


PTMERR 


004076 


PTMINT 


004234 


PT0 


004700 


PT0P 


004706 


PTi 


004702 


PT1P 


004710 


PUNC1 


013604 



P3END 


020201 


RBIN 


013272 


PBINA 


013276 


RBINB 


013312 


RBINC 


013352 


RBIND 


013402 


RBUSY 


013236 


RCMSK 


004366 


RCNT 


001376 


RDRLVL 


001222 


RDRVTR 


001220 


RETRN 


002634 


RIND 


004676 


RNCNT 


004370 


RNGEN 


003030 


RP1 


003076 


RP2 


003100 


RTINTA 


004116 


RT1NTB 


004134 


RTINTC 


004152 


RTMCAL 


003720 


RTMCLA 


003750 


RTMCLB 


003754 


RTMERR 


004064 


RTMINT 


004044 


RTNN 


020756 


RTNNO 


001256 


R0 S! 


1000000 


Rl ai 


1000001 


R2 a! 


1000002 


R3 a%000003 


R4 a%000004 


R5 a%000005 


R6 a%000006 


SCOPE a 


10*013 


5C0PTR 


001264 


SMI 


017404 


SM2 


017433 


SM3 


017456 


SM4 


017501 


SM5 


017523 


SP s%000006 


SPBOT a 


001200 


SRESETs 


104002 


SRSETT 


003012 


SRTN 


020246 


STAL 


004262 


STALA 


004302 


STALB 


004304 


STALL a 


104005 


START 


001432 


STLMSK 


004306 


STPCHVa 


104012 
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STPPA 


003000 


SYNCB 


004550 


TSH2 


002716 


TYPSB 


003562 


ICRLF 


020230 


STPRA 


002750 


SYNCC 


004636 


TTIN 


014654 


VALID ■ 


104017 


ICTLG 


020223 


STPTPV 


002762 


Sll 


002156 


TTYIN a 


104016 


VALXNP 


014740 


• NEW 


020273 


STPTRV 


002732 


62$ 


002166 


TYP 


003400 


WNZERO 


013240 


tNUMCR 


020375 


STRDRVa 


104011 


TENPWR 


005362 


TYPA 


003410 


XCNT 


001430 


IQUEST 


020232 


SUBRD 


017742 


TIB 


001374 


TYPC 


003440 


XCT 


006362 


SRD1 


020617 


5UBTEN 


005316 


TKB 


001232 


TYPD 


003466 


XOR 


002354 


$RD2 


020654 


SUBTNA 


005322 


TKS 


001230 


TYPDAT 


003532 


XORA 


001662 


ISKEY 


020521 


8UBTNB 


005336 


TLX 


014724 


TYPE * 


104003 


XORFLG 


002040 


SSTALL 


020357 


3WR 


001204 


TMCON s 


004136 


TYPES * 


104004 


XP 


010730 


ISTEST 


020314 


SWREG 


000176 


TMPl 


001364 


TYPF 


003504 


XPBE 


010736 


ISWREQ 


020304 


SWTL 


015242 


TMP2 


001366 


TYPG 


003516 


XTP 


006742 


STIME 


020340 


SYCTRA 


004652 


TPB 


001236 


TYPS 


003534 


ICH1 


020425 


8TITLE 


020773 


SYNCA 


004542 


TPS 


001234 


TYPSA 


003560 


*CH2 


020463 


IVALUE 


020236 



■ 021052 
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